perl で行番号 cat

テキストファイルに行番号を付ける

新規にターミナル（端末）。CTRL+ALT+T

行番号をつけてファイルを出力

perl -lne 'print "$. :: $_"' テキストfile

解説::

次をターミナルで実行してみるとよくわかります。

sed --help | perl -lne 'print "$. :: $_"' 

伝統的UNIXでは、

nl 

cat -n

で同様のことはできますが、Perlのように自由にフォーマットを指定できる柔軟さはありません。当職はPerlしか利用しなくなりました。

コラム::Perlの特殊変数

$. は行番号
$_ はループで読み込まれる、この場合、行のことです。

デフォルトでは改行単位の行ごとに処理するのがPerlです。ここでは触れませんが複数行単位でも、全体をひとつのファイルとしてでも、容易に処理できる柔軟さがPerlにはあります。

ちなみにPerl6では今現在 $.に相当する特殊変数がありませんので、カンタンには書けません。