こういうやつこそ、一行野郎でしょう。

naoyaのはてなダイアリー - きよへろのPerlコードをリファクタしようのコーナー No.3
でも、今回は id:kiyohero のコードそのものが結構シンプルで直しどころがあんまりない。

いくつか書いてみる。

perl -nle 'print "$.:$_"' filename ...
perl -nle 'printf "%3d:$_\n", $.' filename ...
perl -ple 'printf "%3d:", $.' filename ... # いつも使っているやつ

あるいは、PerlIO::via::LineNumber

perl -MPerlIO::via::LineNumber -pe 'BEGIN{binmode STDOUT, "via(LineNumber)"}' filename ...

とでもするか。

Dan the Camel Abuser