さらに、今回の課題。 入力で渡したファイルの行頭に、行番号を加えるスクリプト 第3回目が始まってるようなのでやってみる。でも、今回は id:kiyohero のコードそのものが結構シンプルで直しどころがあんまりない。 #!/usr/bin/perl use strict; use warnings; while(<>){ printf "%3d:%s", $., $_; } <STDIN> → <> でもよかろう print でもいいけど prinf で桁そろえしてもいいかな こんぐらいでしょうか。でも、これじゃ面白くないので敢えて難しく書いてみる。無駄に OO。 kiyohero.pl lib/ lib/FileHandle/LineNumber.pm という構成になります。で、FileHandle を継承した FileHandle::LineNumber を作る。 package Fi