ファイルを読み込んで一部を置換するプログラムを書いています。実行させると「Read on closed filehandle」が出てしまい、正常動作しません。該当部分は、次のとおりです。 open (PAGE,"$path$filename"); local($/) = undef; my $pagebody = ; close (PAGE); ##--以下置換 $pagebody =~ s/__str1__/hoge/g; $pagebody =~ s/__str2__/fuga/g; 以下略他のところでcloseしているということはないのですが、エラーの原因として何が考えられるでしょうか。

Read on closed filehandle

解決済

質問者：yasagure-kun
質問日時：2007/12/20 18:53
回答数：1件

ファイルを読み込んで一部を置換するプログラムを書いています。
実行させると「Read on closed filehandle」が出てしまい、正常動作しません。
該当部分は、次のとおりです。

open (PAGE,"$path$filename");
local($/) = undef;
my $pagebody = <PAGE>;
close (PAGE);

##--以下置換
$pagebody =~ s/__str1__/hoge/g;
$pagebody =~ s/__str2__/fuga/g;
以下略

他のところでcloseしているということはないのですが、エラーの原因として
何が考えられるでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： sakusaker7
回答日時：2007/12/21 00:45

そもそもopenには成功しているんでしょうか。

絶対失敗しないという思い込みがあったりしません?

- 0
- 件

通報する

この回答へのお礼

アドバイスをいただいてはたと気がつき、
open (PAGE,"$path$filename")|| die "$!";
をくっつけたところ"no such file or directory"

おっしゃるとおり$pathの綴り間違いが原因でした。
手抜きせずにちゃんとdieしないとだめですね。
どうもありがとうございました。

通報する

お礼日時：2007/12/21 12:47

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！