08/06/16 14:31:35 BE:177559834-2BP(1)
案1)
my $fh = IO::File ～とかopen my $fh～等を使って
いちいち閉じなくていいようにする。
案2)
use IO::File;して
my $fh = *FH{IO};
$fh->close() if defined($fh) && $fh->opened();
08/06/16 14:31:35 BE:177559834-2BP(1)
案1)
my $fh = IO::File ～とかopen my $fh～等を使って
いちいち閉じなくていいようにする。
案2)
use IO::File;して
my $fh = *FH{IO};
$fh->close() if defined($fh) && $fh->opened();