Ｐｅｒｌで数が正しくファイルに読み書き出せません

Ｐｅｒｌで、下のように３００の数を読み書きしたところ、
１０、２６、２６６、２８２
だけ正しく読み出せません。なぜですか？


open (FRED,"+<test");
$pack_format = "I";
$pack_length=length pack($pack_format,0);

for ($n=0;$n<300;$n++){
$age=$n;
seek(FRED,$pack_length*$n,0);
print FRED pack($pack_format,$age);
}

for ($n=0;$n<300;$n++){
seek(FRED,$pack_length*$n,0);
$qqq=read (FRED,$buf,$pack_length);
$age=unpack $pack_format,$buf;
print "/$n/$age/$qqq/\n";
}

No.1 ベストアンサー 回答者： leaz024 回答日時： 2004/03/06 21:00

環境が分からないので完全に再現させることはできませんでしたが、まず間違いなくバイナリデータをテキストモードで扱っているのが原因でしょう。

open の後に、
binmode FRED;
を入れてください。

参考URL：http://tohoho.wakusei.ne.jp/wwwperl2.htm#binmode

この回答へのお礼

＞まず間違いなくバイナリデータをテキストモードで扱っているのが原因でしょう。

全くそのとおりのようです。
＞open の後に、
＞binmode FRED;
を入れたら、期待どおりに動作しました。

さっそくありがとうございました。
数時間、いろいろやっても解決できませんでした。
大変たすかりました。

お礼日時：2004/03/06 23:02