read関数で読み込んだ内容をファイルに書き込めない

質問

バイナリ、asciiのファイルの一部を読み込み、ファイルへ書き出したいのですが、ファイルへ書き出しが上手くいきません。
以下、一部です。

open(FH,$c_file);
binmode FH;
open(CTFH,">$cd_tmp");
binmode(CTFH);
if($i == 1){
$result = read(FH,$cd,677);
print $result."\n";
print CTFH $cd;
print $cd;
}
後でcloseしています。

677byteまでをCTFHに書き込みたいのですが、書き込めていません。
実行した際にprintで$resultには677が出力され、$cdも同様に
677byteの内容が実行時に出力されます。
ちなみにCTFHのファイルは作成されますが0byteと
いう形で何も書き出されていない状態になっています。

どうしてなのかわからず煮詰まっています。
アドバイスをください。

回答No.1

sakusaker7 · ベストアンサー

$i という変数がどこから沸いて出たのかよくわからないのですが、
質問にあるコードはループの一部だったりしませんか?
んで、$i がループの制御変数だったりとか。

仮に、$i が0から5まで変化すると仮定すると、
1のときに書き込んだ内容は、2のときの書き込みオープンで消えてなくなります。

お礼

デバッグをしていて、ループを外すのを忘れていました。
無事に確認することができました。
ありがとうございました。