@a = ("1行目", "2行目", "3行目", "4行目", "5行目", "6行目", "7行目", "8行目", "9行目"); open FH_OUT, ">test.txt"; for ($i=0; $i<10; $i++) { print FH_OUT @a[$i] . "\n"; } close FH_OUT; open FH_IN, "test.txt"; for ($i=0; $i<2; $i++) { $s = <FH_IN>; print $s; } print "現在の行数(close前) : $.\n"; close FH_IN; print "現在の行数(close後) : $.\n"; # $.がリセットされる open FH_IN, "test.txt"; for ($i=0; $i"<2; $i++) { $s = <FH_IN>; print $s; } print "現在の行数(close前) : $.\n"; # closeする前にopenして自動的にclose open FH_IN, "test.txt"; print "現在の行数(closeしないでopen後) : $.\n"; # $.はリセットされない for ($i=0; $i<2; $i++) { $s = <FH_IN>; print $s; } print "現在の行数(最終close前) : $.\n"; close FH_IN;