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を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉

1.

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.012;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

print map{"    $_\n"} grep {-s $_ < 1000} @ARGV;

入出力結果(Terminal)

$ ./sample.pl *
    Oogaboogoo
    barney
    betty
    date.txt
    fred
    gilligan.info
    ginger.info
    link_test
    lovey.info
    ls.err
    maryann.info
    monkeyman.info
    numbers
    perl_program.bak.bak
    perl_program.pl
    perl_program1
    perl_program1.bak
    professor.info
    sample
    sample.pl
    sample.pl.bak
    sample.pl.bak.bak
    sample_folder
    skipper.info
    some_folder
    sortable_hash
    test.bak
    test.out
    test.txt
    test_folder
    test_link
    thurston.info
    tmp_folder
$