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

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

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

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

ファイルサイズを知るには「-s」を使えばいいことをググって知る。

コード(TextWrangler)

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

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

入出力結果(Ternimal)

$ ./my_program * Test.html Virtual Machines.localized barney betty code com.atebits.tweetie.compose.attachments convert_temperature fred ipa2epub ls.err my_program my_program.bak my_program.py numbers pattern_test python_sample.txt python_sample_8_3 sample sample.out sample.txt sample_files samplecode(初めてのコンピュータサイエンス) tac test test1 test7 tsdl.py tsdl.pyc untitled-1.py

コードをもう少し短くしてみる。

コード(TextWrangler)

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

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

出力結果は上記と同じになったので短くできたと思う。

リャマ本をひとまず終えて、今日からアルパカ本に！