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);
用perl读写二进制的文件
最新推荐文章于 2024-06-25 20:06:46 发布