perl（0001）

 

■ 入出力

◆ ファイル読み込み 

----------------------------------------------------------------------------------------------------------------------------------------

$datafile = "../datafile.txt";

open(IN, $datafile);
while ($xx = <IN>) { print $xx; }
close(IN);

----------------------------------------------------------------------------------------------------------------------------------------


----------------------------------------------------------------------------------------------------------------------------------------

open(IN, "datafile.txt");
while ($xx = <IN>) { print $xx; }
close(IN);

----------------------------------------------------------------------------------------------------------------------------------------

aaa