Perlの質問です。CGIで呼ばれるプログラムでファイルの読み込みが失敗し困っています。
具体的には読み込み自体は成功するのですが、以下のような一般的（と思うんですが）複数行あるはずのデータが一行になってforeach が一回しか回らないという現象です。
if ( !open( FH, $filename ) ) {エラー処理}
my @array = <FH>;close(FH);
foreach my $line(@array){
ほにゃらら。
}
厄介なのは起きるときと起きない時があるところです。
成功するときは問題なく取れるが失敗すると数百行あっても一行として読み込まれてしまいます。
現象が出始めるとApacheのリスタートで直ります。
違うサーバで試しに移動してみると再現しません。
環境
Red Hat Enterprise Linux ES release 4
Apache2.0.52
Perl v5.8.5
mod_perl 1.99
use strict、warningsは問題があるプログラムではつけいるしエラー、警告は出ていません。
ただしつけてないプログラムが同じサーバに同居しています。
たぶんメモリ関係だと思うのですが。
なにか関連するモジュールでの不具合情報などありませんか？
情報がないとバージョンアップもできないので。
ベストアンサー
-
b-wind
満足90pt
正直その情報量ではなんともいえないな。
どんなデータを読み込んでいるかも分からんので、推測になるがまずは改行コードでも疑ってみたら？
Perl 側の改行コード判定は $/ の変数の値だ。
あとは一気に全部読み込もうとしてるがこれはメモリ使用量を食うのでお勧めはしない。
とはいえ、今回の現象とは関係ないだろうが。
あとはいまどきのコードとしてはファイルハンドルの使い方がうまくないな。
ファイルハンドルはグローバルスコープをもつので重複があると厄介
eval { open( my $fh, $filename ) ) or die "Can't open file!: $filename, $!"; while ( my $line = <$fh> ){ # ほにゃらら。 } close($fh) or die "Can't close file!: $filename, $!"; } if ( $@ ) { # $@ 変数にエラーメッセージが格納される。 # エラー処理 }
バイナリファイルなら、もう一手間要るけど。
-
komamix
-
komamixその他の回答
-
b-wind
満足10pt
ただ読み込む前に全て代入しないと無理ですよね。
他の人の作ったプログラムも大量に載っているので…。
そりゃあつらいな。
知ってのとおり、mod_perl は永続化する。
グローバル変数なんでいじった日には逆に他のプログラムのほうで逆のエラーが出る羽目になる。
場当たり的だが回避策としては、このぐらいか。
- 前文読み込まれることを前提として、 split "\n" で各行に分ける
my @array = split "\n", <FH>;
- ファイル読み込みを行っている CGI の先頭でグローバル変数を局所的に書き換える
use strict; use warnings; local $/ = "\n";
local 構文はレキシカルスコープだから他のプログラムに影響を与えることは無いはず。
もうちょっときれいな解決策もありそうだけどなー。
この質問へのコメント
質問の情報
- 登録日時
- 2009-07-10 14:06:54
- 終了日時
- 2009-07-15 10:15:03
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…
匿名質問者
4
2
-
０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者1
-
オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…
Ryoya392
1
-
友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者3
-
消費税制における輸出還付金が一部の輸出系大企業ばかりに有利に作用しているという内容の批判や解説のコラ…
minminjp20011
「ただしつけてないプログラムが同じサーバに同居しています」←日本語としても意味が分からないので、他の言い方をしてもらえると助かります。
「ただしつけてないプログラムが同じサーバに同居しています」
失礼しました。
use strict;
use warnings;
がついていない。あまり推奨されないプログラムも同じサーバに同居してるという意味です。