Perlで多次元配列を作るときなどに予め入力ファイルの行数を知りたい、その行数を定数として保持しておきたいときがある。そのようなときは以下のようにしている。 #/usr/bin/perl use Readonly; my $filename = 'foo'; Readonly my $LEN => int(`wc $filena…