perl-ファイル - Fieds_labo1

perl　ファイル

１．一括読み込み

open(FH, $infile);
@lines = <FH>;
close(FH);

foreach $data_line( @lines ) {
	print $data_line;
}

２．1行読み込み

open(FH, $infile);
while ( $line = <FH>) {
	print $line;
}
close(FH);