- 872 名前：デフォルトの名無しさん mailto:sage [02/09/22 23:53]
- >>871 せめて
$p=shift;$f=shift||"-";open H,$f;while(<H>){/$p/&&print $_}
perl grep.pl pattern file.txt
perl grep.pl pattern < file.txt
の両方を受け付けるように、という縛りをつけたらperlの短縮のいい例題になりますた。
見てのとおり初心者ですが、ここのスペースは要る、要らんとかいろいろあってなかなか
面白かったです。
まだパーサの改良ができるかもしれないです。
しかし、1行でこれだと7行は相当に死ねるな・・・・・・
