わいえむねっと

2007/07
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

2007/07

2007/07/29 Sun

Perl覚え書き。

open INPUT, 'foo.txt' or die;
open OUTPUT, '>bar.txt' or die;
do{print OUTPUT "[$1]\nfoo=$2\nbar=$3\n" if /(\w+),(\w+),(\w+)/} while <INPUT>;

あるファイルの特定行から情報を抽出して別フォーマットのファイルを生成。

open INPUT, 'foo.txt' or die;
open OUTPUT, '>bar.txt' or die;
do{do{print OUTPUT <<HERE;
[$1]
foo=$2
bar=$3
HERE
} if /(\w+),(\w+),(\w+)/} while <INPUT>;

ヒアドキュメントにしてみたり、

open INPUT, 'foo.txt' or die;
open OUTPUT, '>bar.txt' or die;
do{sub{print OUTPUT <<HERE;
[$1]
foo=$2
bar=$3
HERE
}->() if /(\w+),(\w+),(\w+)/} while <INPUT>;

コードリファレンス即デリファレンスでdoネストを回避してみたり。（大して変わらねぇ）