Loose-Info.com

Last Update 2019/12/25


TOP - Perl - 関数 - close

ファイルハンドルをクローズします。

close ファイルハンドル

ファイルハンドル
クローズ対象のファイルハンドル

(例)
@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;

実行結果
1行目 2行目 現在の行数(close前) : 2 現在の行数(close後) : 0 1行目 2行目 現在の行数(close前) : 2 現在の行数(closeしないでopen後) : 2 1行目 2行目 現在の行数(最終close前) : 4