テキストファイルの反転

プログラムは以下のように少しだけ複雑になっています。以下をタイプして、適当な名前でセーブしてください。ここでは r.pl という名前でセーブしたことにして話を進めます。

while (<>) {
	s/[\r\n]//g;
	$data[$.] = $_;
}

for ( $i = $.; $i > 0; $i-- ) {
	printf( "%s\n", $data[$i] );
}

exit;

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

田中
佐藤
鈴木

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

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

とタイプします。

鈴木
佐藤
田中

と出力されるはずです。