请问为何我把一些十六进制转换为ascii码后,会产生些其他东西出来?

roby

比如说我有一个文本文件,里面是一个zip文件的十六进制代码
我想把它还原为zip文件
我采取的方法是转换为ascii码再保存
但是发现跟原始的zip文件相比多了些文件
我的代码如下

1. use strict;
   
2. use warnings;
   
3. 
   
4. open my $fd,"2.txt";
   
5. undef $/;
   
6. my $word=<$fd>;
   
7. $word=~/(504B0304.*?)\n/;
   
8. $a=pack( 'H*', "$1" );
   
9. print $a;
   

复制代码

2.txt就是文本文件
b.zip为原始的.zip文件
而a.zip是我用代码转换后的zip文件,多了些字节
请问各位朋友,原因是什么?谢谢

Nosferatu

你的文本文件格式是dos的

roby

那么如何解决呢? 请指点
感谢

Nosferatu

perl -pi -e "s/\r//g" 2.txt

roby

谢谢楼上
在你的先前提示下
我仔细观察了下
发现是0a变成 0d0a
然后翻了下大骆驼
用:raw搞定

非常感谢

__lxmxn__

原帖由 roby 于 2007-12-15 22:32 发表
谢谢楼上
在你的先前提示下
我仔细观察了下
发现是0a变成 0d0a
然后翻了下大骆驼
用:raw搞定

非常感谢

用:raw是如何搞定的呢?分享一下?

roby

原帖由 __lxmxn__ 于 2007-12-15 22:55 发表

用:raw是如何搞定的呢?分享一下?

1. 
   
2. use strict;
   
3. use warnings;
   
4. open my $fd,"<:raw","word.txt";
   
5. undef $/;
   
6. my $word=<$fd>;
   
7. my $i=1;
   
8. my $cib;
   
9. while($word=~/(504B0304.*?)\n/g){
   
10.         open(ROBY,">:raw","$i.zip");
    
11.         $cib=pack('H*',"$1");
    
12.     print ROBY  $cib;
    
13.         close(ROBY);
    
14.         $i=$i+1;
    
15. }
    

复制代码

:raw 的含义是  二进制模式;不做处理
见大骆驼P821面