如何用perl读写二进制的文件

rimrock

如何用perl读写二进制的文件，比如写一个BMP文件

笨狗

binmode

rimrock

open(FH,">;filename";
binmode(FH);

how to write to FH in binary?????

close(FH);

风雪一飘遥

open(FP, $file) || die "cannot open file $!";
        binmode(FP);
       
        open(TMPFP, ">;a.tmp" || die "cannot open file $!";
        binmode(TMPFP);
       
        my $buffer = "";
       
        while(read(FP, $buffer, 1024)) {
                syswrite(TMPFP, $buffer, length($buffer));
                print "$buffer";
                print '=' x 24;
        }
        close(FP);
        close(TMPFP);

rimrock

谢谢。我试一试