在一些应用中我们时常需要一些二进制不可读的文件,于是转换格式就是一个必不可少的过程,下面是用perl写的代码:
代码:
use strict;
my $file=shift;
binmode(STDOUT);
open IN,$file or die $!;
while(<IN>){
for my $out(split /\s+/,$_){
print STDOUT pack("d",$out);
}
}
close IN;
以后有时间会把binmode函数和pack函数的用法加上去,先把代码保存一下。