ナンバリング

エディタを開き以下をタイプして、適当な名前でセーブしてください。ここでは n.pl という名前でセーブしたことにして話を進めます。

while(<>) {
	s/[\r\n]//g;
	printf("%d,%s\n", $., $_ );
}
exit;

入力データは、テキストファイルであればなんでもかまいません。とりあえず、エディタを開き、以下のようなファイルを作成し、 dat1.txt という名前でセーブしたこととします。

田中
佐藤
鈴木

OSはWindowsを利用していると仮定します。 DOS prompt 上で、

c:\perl> perl n.pl dat1.txt

とタイプします。

1,田中
2,佐藤
3,鈴木

と出力されるはずです。

今、行番号とデータはカンマで区切られています。これを別な文字、たとえばコロン(：) に変更するには、エディタでn.pl を開き、二行目の

	printf("%d,%s\n", $., $_ );

を

	printf("%d:%s\n", $., $_ );

に変更すればよいのです。

今、行番号は1から始まっています。これをたとえば100から始まるようにするにはどうしたらよいのでしょうか？　これもきわめて簡単です。エディタでn.pl を開き、二行目の

	printf("%d,%s\n", $., $_ );

を

	printf("%d,%s\n", $. + 100, $_ );

とすればよいのです。