Fieds_labo1
perl-ファイル
最終更新:
fieds_labo1
-
view
perl ファイル
1.一括読み込み
open(FH, $infile); @lines = <FH>; close(FH); foreach $data_line( @lines ) { print $data_line; }
2.1行読み込み
open(FH, $infile); while ( $line = <FH>) { print $line; } close(FH);