小技集 - プレーンテキスト備忘録

「data1.txt」～「data5.txt」等の複数ファイルを削除

for(my $m = 1;unlink("data$m.txt");$m++){}

配列の個数(要素数)を知る

my @data;
$data[0] = 'a';$data[1] = 'b';$data[2] = 'c';
print ("\@dataの要素数は$#data\n");

実行結果

   @dataの要素数は2

※要素数は3だが添字の数の最大が2なので2と表示される。なので正確には$#data + 1が要素数