naoya https://blog.hatena.ne.jp/naoya/ naoyaのはてなダイアリー https://naoya-2.hatenadiary.org/ さらに、今回の課題。 入力で渡したファイルの行頭に、行番号を加えるスクリプト 第3回目が始まってるようなのでやってみる。でも、今回は id:kiyohero のコードそのものが結構シンプルで直しどころがあんまりない。 #!/usr/bin/perl use strict; use warnings; while(<>){ printf "%3d:%s", $., $_; } <STDIN> → <> でもよかろう print でもいいけど prinf で桁そろえしてもいいかな こんぐらいでしょうか。でも、これじゃ面白くないので敢えて難しく書いてみる。無駄に OO。 kiyohero.pl li… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnaoya-2.hatenadiary.org%2Fentry%2F20051104%2F1131095474" title=" きよへろのPerlコードをリファクタしようのコーナー No.3 - naoyaのはてなダイアリー" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2005-11-04 18:11:14 rich https://naoya-2.hatenadiary.org/entry/20051104/1131095474 1.0 100%