ファイルへの書き込みと入力

Question

で同じファイルを開いて、私は残念ながら、私はこのスクリプトを実行しているときに私はなっておりません

open(FH, '>', "temp.out") or die "cannot open"; 
select FH; 

print "Hello World!"; 
close FH; 

open (FI, "temp.out") or die "cannot open"; 
while (<FI>) { 
    print $_; 
} 

以下のようなPerlスクリプトを書いていたの「Hello World！」を印刷されます。これは理想的なケースでしょうか？

temp.outファイルでは、「Hello World！」と表示されます。印刷されます。

ファイル名に変数を使用しようとしましたが、これも機能しませんでした。

Answer 1

print $_は閉じたファイルハンドルに入ります。 FHをデフォルトの出力ファイルハンドルとして選択し、それを閉じたので、それ以上書き込むことはできません。いずれの場合でも、そのファイルハンドルは画面ではありません。たとえそれが開いていても、あなたは画面上でそれを見ることはできません。

STDOUTを保存して再選択する必要があります。

open(FH,'>', "temp.out") or die "cannot open"; 
my $stdout = select FH; 
print "Hello World!"; 
close FH; 
select $stdout; # here 
open (FI, "temp.out") or die "cannot open"; 
while(<FI>){ 
    print $_; 
} 

Answer 2

必ずスクリプトでstrictとwarningsを使用し、これはあなたが遭遇したエラーをキャッチしているだろう：

print() on closed filehandle FH at t.pl line 10, <FI> line 1. 

あなたFHまだあなたはそれを閉じていても、結局選択されています。あなたは多くの印刷ステートメントを持っていて、どういうわけかselectを隔離することはできません（例えば、関数の先頭で選択し、最後にデフォルトを復元するなど）。printステートメントで明示的にファイルハンドルを指定することをお勧めします。