どうせだったらもう一歩

Perl

Perlプログラムをコンパクトに記述する方法という記事で、特殊変数を使ってスクリプトをコンパクトに記述する方法が説明されています。気になったのが最後のコードのこれ。

$num = 0;
while (<>) {
    $num = $num + 1;
    print "$num\t$_";
}

特殊変数を使うという記事なので行番号の例を出すのであれば$.も紹介すれば良いのにと思ってしまいました。

while (<>) {
    print "$.\t$_";
}