標準入力から読んで、標準出力に書く (行番号付加) lesson006.pl $i = 0; printf "%.6d | %s", ++$i, $_ while();実行結果 C:\>perl c:\study\perl\chapter003\lesson006.pl perl\chapter001\lesson 002.pl 000001 | $var1 = "Hello"; 000002 | $var2 = "Wor…