把文本格式转换为二进制格式（Linux系统中）

          在一些应用中我们时常需要一些二进制不可读的文件，于是转换格式就是一个必不可少的过程，下面是用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函数的用法加上去，先把代码保存一下。