ファイルを読み込んで標準出力 - プレーンテキスト備忘録

ファイルを読み込んで標準出力

open(INFILE,"<usr.dat"); # data.txtを読み込み形式(<)で開く
my @data = <INFILE>; # 配列@dataにファイルの中身全てを代入
close(INFILE);

for(my $i = 0; $data[$i]; $i++)
{
    printf("%5i: $data[$i]",$i);
}