ChangeLog メモ整形スクリプト

- 2003-04-18 と 2003-04-22 から続く整形スクリプト。

- 今までとは別の one liner を考えた。今回の方が表記自体はスマートだと思う。

(?!PATTERN) は、「否定の先読み」を表す。

$ perl -p -i.bak -e 's/^((?!\t)(?!\d{4}-\d{2}-\d{2}\s+.*?<.*>).+)/\t$1/; s/\s+$/\n/;' /home/hiroaki/log.txt

- でも性能が悪いみたい。

$ time perl -p -i.bak -e 's/^((?!\t)(?!\d{4}\-\d{2}\-\d{2}\s+.*?<.*>).+)/\t$1/; s/\s+$/\n/;' /home/hiroaki/log.txt

real    0m0.567s
user    0m0.470s
sys    0m0.080s

うーん、複雑な正規表現はコスト高いのかなあ? そんなに複雑でもないと思うけど・・・。