perl binmode的用法?

lovebelobe 2013-02-21 09:21:58
打开一个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";

......
...全文
520 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lovebelobe 2013-02-21
引用 1 楼 bugs2k 的回复:
莫非是想这样: Perl code?123456while (<DATA>) { my $s = unpack 'H*'; print $s;}__DATA__12345678900a1234567890
谢谢你的回答,其实已经实现了,是我不会看……(汗) 可不可以帮我看一下我另一张帖子的问题?? perl substr获取字符串中非空格的内容:http://bbs.csdn.net/topics/390372350
  • 打赏
  • 举报
回复
bugs2k 2013-02-21
莫非是想这样:
while (<DATA>) {
    my $s = unpack 'H*';
    print $s;
}
__DATA__
12345678900a1234567890
  • 打赏
  • 举报
回复
相关推荐
发帖
脚本语言
加入

3.7w+

社区成员

JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
申请成为版主
帖子事件
创建了帖子
2013-02-21 09:21
社区公告

CSDN 脚本语言社区接受专栏投稿(专栏会在顶部创建专属你的栏目),投稿需满足以下要求:

  • 脚本语言技术相关;
  • 文章持续更新,保持活跃;
  • 内容清晰明了,干货为主;
  • 文章排版有序,有条有理。

本社区开通招聘专栏,发布招聘信息请联系版主,发布者需要保证招聘信息真实有效,CSDN 平台和版主不对招聘内容负责!

联系方式:私聊版主、发送邮件、QQ联系等均可: