用perl读写二进制的文件

概述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

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,length($buffer));   print "$buffer";   print '=' x 24; } close(FP); 
close(TMPFP);

总结

以上是内存溢出为你收集整理的用perl读写二进制的文件全部内容，希望文章能够帮你解决用perl读写二进制的文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。