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";

open FH_IN, "test.txt";                              # closeする前にopenして自動的にclose
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


Copyright(C) 2006-2018 CLAYPOT. All Rights Reserved.