プログラミング学習の記録 628.2 8章(ファイルハンドルへのリファレンス)の練習問題2 『続・初めての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) の8章(ファイルハンドルへのリファレンス), 8.6(練習問題)、2を解いてみる。

 

2.

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;
use IO::File;

my %output;
while (<>){
  if(/^(\S+):/){
    $output{$1}=$output{$1}||IO::File->new(">$1.info");
    my $file=$output{$1};
    print $file $_;
    }
}

入出力結果(Terminal)

$ ./my_program log_file.txt

出来上がったファイル

Gilligan.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.info

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.info

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.info

Maryann: 1 coconut MaryAnn: 1 kiwifruit MaryAnn: 1 banana MaryAnn: 2 bananas MaryAnn: 1 kiwifruit MaryAnn: 1 kiwifruit MaryAnn: 2 coconuts MaryAnn: 1 coconut MaryAnn: 2 coconuts MaryAnn: 2 bananas MaryAnn: 2 bananas MaryAnn: 1 mango MaryAnn: 1 coconut MaryAnn: 1 banana

MonkeyMan.info

MonkeyMan: 8 bananas

Professor.info

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.info

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.info

Thurston: 2 mangoes Thurston: 1 mango Thurston: 1 kiwifruit Thurston: 1 banana Thurston: 1 banana

ファイル、log_file.txtはO'reillyのWebサイトからダウンロード。