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