# 現在のファイルハンドルを保存 # (Active Perlマニュアルより引用) $oldfh = select(STDERR); $| = 1; select $oldfh; open TEST_OUT_1, ">test1.txt" or die "error $!\n"; open TEST_OUT_2, ">test2.txt" or die "error $!\n"; select TEST_OUT_1; print "test_out_1"; select TEST_OUT_2; print "test_out_2"; close TEST_OUT_1; close TEST_OUT_2; # 以前のファイルハンドルを復元 select $oldfh; open TEST_IN_1, "test1.txt" or die "error $!\n"; $s1 = <TEST_IN_1>; print $s1 . "\n"; close TEST_IN_1; open TEST_IN_2, "test2.txt" or die "error $!\n"; $s2 = <TEST_IN_2>; print $s2 . "\n"; close TEST_IN_2;