perl 打开二进制文件,并拷贝内容

实现脚本

use strict ;

my $fileName = "/Users/chenfool/Desktop/sequoiadb-大数据平台构建.pdf" ;

my $outFile = "/Users/chenfool/Desktop/chentest.pdf" ;

my $buff ;

open (IN, $fileName) ;

open (OUT, ">$outFile") ;

binmode (IN) ;

binmode (OUT) ;

read (IN, $buff, 14746840) ;

#print $buff . "\n" ;
print OUT $buff ;

close (IN) ;

close (OUT) ;

 

这里并没有用到 pack 和 unpack 

posted @ 2015-02-28 15:50  chenfool  阅读(753)  评论(0编辑  收藏  举报