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

时间:2022-05-04 09:12:36

实现脚本

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, ) ;

#print $buff . "\n" ;
print OUT $buff ; close (IN) ; close (OUT) ;

这里并没有用到 pack 和 unpack