「すぐ分かるPerl」6.5 行番号をうってみよう

1: # copycat -- 標準入力を標準出力にコピー
2:
3: while (<STDIN>){
4:  print;
5: }

うむー。
考えたけど、分からなかったので解答をみながら。
たとえばこんな感じ。

# num -- 番号を振りながらコピー
$i=0;
while (<STDIN>) {
print ++$i;
print ": ";
print;
}

あるいは

# num -- 番号を振りながらコピー
$i=0;
while (<STDIN>) {
print ++$i.": ".$_;
}

行番号自体は「$.」という特殊変数に格納されているので、実は下も同じような結果になる。

# num -- 番号を振りながらコピー
while (<STDIN>) {
print $..": ".$_;
}

教科書例はこれ。
なるほど、1行にまとめて""のなかで変数を展開していると。

# num -- 番号を振りながらコピー
while (<STDIN>) {
print "$.:$_";
}

なるほど。
自力でこれくらいは寝てても書けるようになりたいなぁ。
数こなすしかないかな。がんばろう。