[Tokyo.pm] today's one liner

[scozens ＠ pwj.co.jp]

前田>
perl -ne 'BEGIN {$/="go\n"; $i="000"; } open(OUT, ">sql-" . (++$i) .
".txt"); print OUT; close OUT' trace.txt

うんん、きれい。または、$i　より　$. が使えます。

$. といえば、昨日のワンライナー：　perl -ne '}print $.{' file

こういうワンライナーが分からない時、B::Deparseのほうがとても便利です：

$ perl -MO=Deparse -ne '}print$.;{'
LINE: while (defined($_ = <ARGV>)) {
    ();
}
print $.;
{;};



--
perl -e 'print qq(@{[qq[@{[qq{@{[Just Another Perl Hacker]}}]}]]})'