標準入出力

標準入力から読んで、標準出力に書く (行番号付加)

lesson006.pl

$i = 0;

printf "%.6d | %s", ++$i, $_ while();

実行結果

C:\>perl c:\study\perl\chapter003\lesson006.pl < c:\study\perl\chapter001\lesson

002.pl

000001 | $var1 = "Hello";

000002 | $var2 = "World";

000003 | print $var1, ", ", $var2, "!", "\n";