[Tokyo.pm] today's one liner

[Kazumasa Utashiro]

From: maeda ＠ src.ricoh.co.jp
Subject: [Tokyo.pm] today's one liner
Date: Mon, 31 Jan 2000 11:09:30 +0900 (JST)

> perl -ne 'BEGIN {$/="go\n"; $i="000"; } open(OUT, ">sql-" . (++$i) . ".txt"); print OUT; close OUT' trace.txt
> 
> SQLの実行トレースがをgo文で区切り、sql-001.txt, sql-002.txt……
> というファイルに切り出す。close OUTは冗長だった。

STDOUT をオープンして -pe にすれば、print も省けますね。

			*	*	*

2番目のメールだけ表示してみる:

perl -0777e 'print((split(/^(?=From )/m,<>))[1])' $mail

--utashiro