今までPerlのワンライナーがほとんど書けなかったがmotemenさんの記事を見て、その原因が分かったので、メモ。 motemenさんありがとうございます! まずはじめにmotemenさんのパール、アナルを使え!または私は如何にして Perl のワンライナーを書けるようになったかという記事が大変参考になりました。お礼申し上げます。 結論的には、motemenさんの記事の冒頭にあるように以下のオプションを覚えればいいのです。 perl -anal -e "…" ただ、一つ加えるならこのオプションの順番が重要だということです。 motemenさんの記事の最後にB::Deparseを使ったデバックが載っていてこれが大変すっきりとします。以下に並び替えたものを載せます。 perl -MO=Deparse -anal -e 'poyo()' ~正解~ BEGIN { $/ = "\n"; $\ =