プログラミング学習の記録 718.2 7章(サブルーチンへのリファレンス)の練習問題1『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-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) の 7章(サブルーチンへのリファレンス),　7.8(練習問題)、1を解いてみる。

 

1.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use File::Find; use Time::Local; sub gather_mtime_between{ my($begin, $end) = @_; my @files; my $gather = sub { my $timestamp = (stat $_)[9]; push @files, $File::Find::name if ($timestamp >= $begin) && ($timestamp < $end); }; my $fecther = sub {@files}; ($gather, $fecther); } my $target_dow = 1; my @starting_directories = ("."); my $seconds_per_day = 24 * 60 * 60; my($sec,$min,$hour,$day,$mon,$yr,$dow) = localtime; my $start = timelocal(0,0,0,$day,$mon,$yr); while($dow != $target_dow){ #1日戻る $start -= $seconds_per_day; if(--$dow < 9){ $dow +=7; } } my $stop = $start + $seconds_per_day; my($gather, $yield) = gather_mtime_between($start, $stop); find($gather, @starting_directories); my @files = $yield->(); for my $file (@files){ my $mtime = (stat $file)[9]; my $when = localtime $mtime; print "$when: $file\n"; }

入出力結果(Terminal)

$ ./perl_program

だいぶ待っても何も表示されない。。プログラムがどこか間違ってるのか、処理に時間がかかってるだけなのかどっちだろう？ とりあえずCPUは凄い使われててMacも熱くなってるから何か処理してることには間違いないと思うけど。。

追記: 2011/10/27

whileループのところを間違えていて無限ループになってることを発見！ということで以下のように修正。

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use File::Find; use Time::Local; sub gather_mtime_between{ my($begin, $end) = @_; my @files; my $gather = sub { my $timestamp = (stat $_)[9]; push @files, $File::Find::name if ($timestamp >= $begin) && ($timestamp < $end); }; my $fecther = sub {@files}; ($gather, $fecther); } my $target_dow = 1; my @starting_directories = ("."); my $seconds_per_day = 24 * 60 * 60; my($sec,$min,$hour,$day,$mon,$yr,$dow) = localtime; my $start = timelocal(0,0,0,$day,$mon,$yr); while($dow != $target_dow){ #1日戻る $start -= $seconds_per_day; if(--$dow < 0){ $dow +=7; } } my $stop = $start + $seconds_per_day; my($gather, $yield) = &gather_mtime_between($start, $stop); find($gather, @starting_directories); my @files = $yield->(); for my $file (@files){ my $mtime = (stat $file)[9]; my $when = localtime $mtime; print "$when: $file\n"; }

入出力結果(Terminal)

$ ./perl_program Mon Oct 24 17:11:40 2011: ./coconet.dat