Perl - ファイルハンッドルへのリファレンス(IO::Fileモジュール)

開発環境

• 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)の8章(ファイルハンッドルへのリファレンス),　8.6(練習問題)、2を解いてみる。

2.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use IO::File; my %hash; while (<>){ my $name; if (/^(.+):/){ $name = lc $1; } (my $fh = ( $hash{$name} = ( $hash{$name} || IO::File->new(">$name.info") ) ) ) || die "can't create $name.info: $!"; print $fh $_; }

入出力結果(Terminal)

$ cat log_file.txt Gilligan: 1 coconut Skipper: 3 coconuts Gilligan: 1 banana Professor: 3 coconuts MaryAnn: 2 papayas Thurston: 2 mangoes Gilligan: 1 banana Thurston: 1 mango Gilligan: 1 papaya Gilligan: 1 kiwifruit Skipper: 2 coconuts Professor: 3 bananas Ginger: 1 banana Ginger: 1 mango Gilligan: 2 mangoes Ginger: 1 banana MaryAnn: 1 kiwifruit Professor: 1 coconut Professor: 2 coconuts Gilligan: 1 kiwifruit Ginger: 1 coconut MaryAnn: 1 banana Ginger: 1 banana Thurston: 1 kiwifruit Lovey: 1 coconut Lovey: 2 papayas Ginger: 2 mangoes Gilligan: 2 kiwifruits Skipper: 1 mango Skipper: 2 mangoes Lovey: 2 papayas Gilligan: 2 mangoes Skipper: 1 kiwifruit Gilligan: 1 mango MaryAnn: 2 bananas Skipper: 1 mango Gilligan: 1 kiwifruit Gilligan: 1 kiwifruit Gilligan: 1 coconut Professor: 2 mangoes Gilligan: 1 coconut Ginger: 3 kiwifruits Gilligan: 1 coconut MaryAnn: 1 kiwifruit Ginger: 2 coconuts Gilligan: 1 coconut Gilligan: 2 papayas Ginger: 3 bananas Professor: 1 coconut Gilligan: 1 mango MaryAnn: 1 kiwifruit Skipper: 1 mango MaryAnn: 2 coconuts Professor: 1 kiwifruit Maryann: 1 coconut Gilligan: 3 bananas Gilligan: 1 kiwifruit Gilligan: 1 papaya Lovey: 1 papaya Ginger: 1 kiwifruit Gilligan: 1 kiwifruit MonkeyMan: 8 bananas Gilligan: 1 kiwifruit Gilligan: 1 banana MaryAnn: 1 coconut Skipper: 3 kiwifruits MaryAnn: 2 coconuts Gilligan: 2 bananas Skipper: 1 coconut Lovey: 1 coconut Skipper: 1 banana Gilligan: 2 kiwifruits Gilligan: 4 coconuts Skipper: 1 kiwifruit Thurston: 1 banana Lovey: 1 banana MaryAnn: 2 bananas Lovey: 1 coconut Ginger: 1 kiwifruit Ginger: 1 coconut Lovey: 1 papaya MaryAnn: 2 bananas MaryAnn: 1 mango Gilligan: 3 mangoes Skipper: 1 kiwifruit Professor: 1 papaya Professor: 1 kiwifruit Skipper: 1 mango Thurston: 1 banana MaryAnn: 1 coconut Gilligan: 2 coconuts Gilligan: 2 kiwifruits MaryAnn: 1 banana Lovey: 1 banana Gilligan: 1 kiwifruit Ginger: 2 coconuts Gilligan: 1 mango Lovey: 1 kiwifruit Skipper: 1 kiwifruit Lovey: 1 banana Skipper: 1 mango Lovey: 1 kiwifruit Lovey: 2 kiwifruits Gilligan: 1 coconut Gilligan: 1 coconut Skipper: 1 mango Skipper: 1 coconut $ ./perl_program log_file.txt $ ls gilligan.info log_file.txt maryann.info perl_program skipper.info ginger.info lovey.info monkeyman.info professor.info thurston.info $ cat *.info Gilligan: 1 coconut Gilligan: 1 banana Gilligan: 1 banana Gilligan: 1 papaya Gilligan: 1 kiwifruit Gilligan: 2 mangoes Gilligan: 1 kiwifruit Gilligan: 2 kiwifruits Gilligan: 2 mangoes Gilligan: 1 mango Gilligan: 1 kiwifruit Gilligan: 1 kiwifruit Gilligan: 1 coconut Gilligan: 1 coconut Gilligan: 1 coconut Gilligan: 1 coconut Gilligan: 2 papayas Gilligan: 1 mango Gilligan: 3 bananas Gilligan: 1 kiwifruit Gilligan: 1 papaya Gilligan: 1 kiwifruit Gilligan: 1 kiwifruit Gilligan: 1 banana Gilligan: 2 bananas Gilligan: 2 kiwifruits Gilligan: 4 coconuts Gilligan: 3 mangoes Gilligan: 2 coconuts Gilligan: 2 kiwifruits Gilligan: 1 kiwifruit Gilligan: 1 mango Gilligan: 1 coconut Gilligan: 1 coconut Ginger: 1 banana Ginger: 1 mango Ginger: 1 banana Ginger: 1 coconut Ginger: 1 banana Ginger: 2 mangoes Ginger: 3 kiwifruits Ginger: 2 coconuts Ginger: 3 bananas Ginger: 1 kiwifruit Ginger: 1 kiwifruit Ginger: 1 coconut Ginger: 2 coconuts Lovey: 1 coconut Lovey: 2 papayas Lovey: 2 papayas Lovey: 1 papaya Lovey: 1 coconut Lovey: 1 banana Lovey: 1 coconut Lovey: 1 papaya Lovey: 1 banana Lovey: 1 kiwifruit Lovey: 1 banana Lovey: 1 kiwifruit Lovey: 2 kiwifruits MaryAnn: 2 papayas MaryAnn: 1 kiwifruit MaryAnn: 1 banana MaryAnn: 2 bananas MaryAnn: 1 kiwifruit MaryAnn: 1 kiwifruit MaryAnn: 2 coconuts Maryann: 1 coconut MaryAnn: 1 coconut MaryAnn: 2 coconuts MaryAnn: 2 bananas MaryAnn: 2 bananas MaryAnn: 1 mango MaryAnn: 1 coconut MaryAnn: 1 banana MonkeyMan: 8 bananas Professor: 3 coconuts Professor: 3 bananas Professor: 1 coconut Professor: 2 coconuts Professor: 2 mangoes Professor: 1 coconut Professor: 1 kiwifruit Professor: 1 papaya Professor: 1 kiwifruit Skipper: 3 coconuts Skipper: 2 coconuts Skipper: 1 mango Skipper: 2 mangoes Skipper: 1 kiwifruit Skipper: 1 mango Skipper: 1 mango Skipper: 3 kiwifruits Skipper: 1 coconut Skipper: 1 banana Skipper: 1 kiwifruit Skipper: 1 kiwifruit Skipper: 1 mango Skipper: 1 kiwifruit Skipper: 1 mango Skipper: 1 mango Skipper: 1 coconut Thurston: 2 mangoes Thurston: 1 mango Thurston: 1 kiwifruit Thurston: 1 banana Thurston: 1 banana $

メモ: この章の周辺まだちょっと時間がかかる。