Perl - 中級者の基礎知識(grepによるリストのフィルタリング、mapによるリストの変換)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の2章(中級者の基礎知識),　2.4(練習問題)1を解いてみる。

1.

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

print "1000バイト未満のファイル一覧\n";
print map{"    $_\n"} grep{-s $_ < 1000} @ARGV;

入出力結果(Terminal)

$ ls -l sample*
-rwxr-xr-x@ 2 kamimura  staff   159  7 10 16:04 sample.pl
-rwxr-xr-x@ 1 kamimura  staff   301  6 12 18:57 sample.pl.bak
-r--------  1 kamimura  staff  5563  6 10  2001 sample_text
-rw-r--r--  1 kamimura  staff  5576  3 18 16:09 sample_text.out
-rw-r--r--  1 kamimura  staff  5576  3 17 16:08 sample_text.out.bak

sample:
total 0
drwxr-xr-x  2 kamimura  staff  68  6 23 16:40 sample_folder
drwxr-xr-x  2 kamimura  staff  68  6 23 16:40 sample_folder copy
drwxr-xr-x  2 kamimura  staff  68  6 23 16:40 sample_folder copy 2
drwxr-xr-x  2 kamimura  staff  68  6 23 16:40 sample_folder copy 3
drwxr-xr-x  2 kamimura  staff  68  6 23 16:40 sample_folder copy 4

sample_folder:
total 16
-rw-r--r--@ 1 kamimura  staff  124  3 15 16:56 sample1.bak
-rw-r--r--  4 kamimura  staff  330  3 18 16:09 test
$ ./sample.pl sample*
1000バイト未満のファイル一覧
    sample
    sample.pl
    sample.pl.bak
    sample_folder
$

Perl, Programming,