特殊変数

Perlには、特別な意味を持つグローバル変数「特殊変数」がたくさん用意されている。

perlvar - Perl で定義済みの変数 - perldoc.jp
Perlの特殊変数 - Perl入門ゼミ

whileの条件式に<IN>だけ書いている。
渡す相手がいないわけだが、実際には読み込んだ行文字列は、特殊変数"$_"に格納されている。
("$_"はデフォルト変数などと呼ばれている。)
また、"$."はファイルハンドルの現在の行番号を表している。

$ vi special_variable.pl
$ ls
special_variable.pl  test.txt
$ cat test.txt
ABC
DEF
GHI
JKL
MNO
$ perl special_variable.pl
1:ABC
2:DEF
3:GHI
4:JKL
5:MNO
$

特殊変数を使って、行番号と行の内容を出力できた。

Sample/perl/special_variable/special_variable/src/special_variable at master · bg1bgst333/Sample · GitHub