perl binmode的用法？

[lovebelobe]

打开一个ASCII码文件，用perl的pack函数把数据转换成binary，可是当遇到“0a”或“0d”的数据时就会转换成回车，我在网上查到用binmode可能可以解决这个问题，但可能是因为我不会用，所以没有得到想要的结果。

ASCII数据：
12345678900a1234567890
想转换成binary：
XXXXXXXXXXX(乱码)
可是转换后的结果是：
XXXXX
XXXXX

perl的代码：
......
open ( my $ifh, "<" ,$input_file) or die "Cannot open $input_file:$!";
binmode $ifh;

open ( my $ofh, ">" ,$output_file) or die "Cannot open $output_file:$!";
binmode $ofh;

......

my data = $line;
my data_conv = pack("H*",$data),"\n";

......

[bugs2k]

莫非是想这样:

while (<DATA>) {
    my $s = unpack 'H*';
    print $s;
}
__DATA__
12345678900a1234567890

[lovebelobe]

引用 1 楼 bugs2k 的回复:

莫非是想这样: Perl code?123456while (<DATA>) { my $s = unpack 'H*'; print $s;}__DATA__12345678900a1234567890

谢谢你的回答，其实已经实现了，是我不会看……（汗） 可不可以帮我看一下我另一张帖子的问题？？ perl substr获取字符串中非空格的内容：http://bbs.csdn.net/topics/390372350