◆ ファイル読み込み
----------------------------------------------------------------------------------------------------------------------------------------
$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