Perlコーディング初心者質問スレ Part 48

[0377 nobodyさん 2006/05/12(金) 02:33:59 ID:???]

>>376
$line = (grep /./, @data)[-1];

それもよさそうだね。
>>377 >>345 >>346あたりが最小限の走査ですむように
工夫されてるのでよさそう。