[Tokyo.pm] today's one liner
scozens @ pwj.co.jp
scozens @ pwj.co.jp
2000年 1月 30日 (日) 20:39:00 CST
前田>
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]}}]}]]})'
Tokyo-pm メーリングリストの案内