请教perl二进制文件的读写

plaisir

请教各位
我有一二进制文件需要编辑，例如该二进制文件的内容如下： 01 02 03 04 05 97 02 08 11 12 13 14 97 02 08 33 44 55 66 我需要将里面的97 02 08 改成 97 02 01 。

我参考了以前的帖子，学会了二进制文件的读，但是不知道如何将读出的内容与我需要的内容比较，例如if($buffer == 0x97)，我知道这里这么比较是不对的， 因为$buffer是字符，所以想请教应该怎么判断。另外怎么付值呢？比如把08改成01（$buffer = 0x01;），我知道这个也不对，因为这样付值后$buffer 变成1的ASCII码31了，写入文件后就不是0x01而变成了0x31。那位知道的麻烦指点一下，谢谢。

while(read(INP, $buffer, 1)) {
                if($buffer == 0x97) {
                        syswrite(OUT, $buffer, length($buffer));
                        read(INP, $buffer, 1);
                        if($buffer == 0x02){
                                syswrite(OUT, $buffer, length($buffer));
                                print "$buffer";
                                read(INP, $buffer, 1);
                                $buffer = 0x01;
                                                        }
                }
                syswrite(OUT, $buffer, length($buffer));
}

plaisir

哪位高手能给点建议啊？谢谢。

plaisir

我是菜鸟，哪位高手给个提示或建议吧，应该怎么处理二进制文件里的数值，可以把read读出来的值变成整数而不是字符串吗？怎么通过比较得到要找的9702呢？然后怎么将01代替后面的值？或者从那里可以获得相关资料？谢谢！

clzzclzz

主要是两个函数的用法 pack & unpack
详见：http://www.perl.com/doc/manual/html/pod/perlfunc/pack.html

example:

1. 
   
2. use strict;
   
3. 
   
4. my $gifname = "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\1.jpg";
   
5. my $gifOutname = "d:\\1111.dat";
   
6. my $buff;
   
7. open(GIF, $gifname)         or die "can't open $gifname: $!";
   
8. open(GIFOUT, ">$gifOutname")         or die "can't open $gifOutname: $!";
   
9. binmode(GIF);
   
10. binmode(GIFOUT);
    
11. read(GIF, $buff, 1);
    
12. my $hex = unpack("H*", $buff);
    
13. print "ok" if $hex eq "ff";
    
14. $hex = "00";
    
15. my $outVar = pack("H*", $hex);
    
16. print GIFOUT $outVar;
    
17. close(GIF);
    
18. close(GFIOUT);
    

复制代码

[ 本帖最后由 clzzclzz 于 2006-5-7 13:52 编辑 ]

plaisir

非常感谢！

wingger

根本不用 pack/unpack，
直接 $ch eq "\x97" 就可以了。
再或者 ord($ch) == 0x97 也行。

clzzclzz

原帖由 wingger 于 2006-5-8 09:28 发表
根本不用 pack/unpack，
直接 $ch eq "\x97" 就可以了。
再或者 ord($ch) == 0x97 也行。

对这种方法也可以我试过了

1. 
   
2. use strict;
   
3. 
   
4. my $gifname = "C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\示例图片\\Blue hills.jpg";
   
5. my $gifOutname = "d:\\1111.dat";
   
6. my $buff;
   
7. open(GIF, $gifname)         or die "can't open $gifname: $!";
   
8. open(GIFOUT, ">$gifOutname")         or die "can't open $gifOutname: $!";
   
9. binmode(GIF);
   
10. binmode(GIFOUT);
    
11. read(GIF, $buff, 2);
    
12. my $hex = unpack("H*", $buff);
    
13. print "ok" if $hex eq "ffd8";
    
14. print "ok2" if $buff eq "\xff\xd8";
    
15. $hex = "\x00";
    
16. #my $outVar = pack("H*", $hex);
    
17. print GIFOUT $hex;
    
18. close(GIF);
    
19. close(GFIOUT);
    

复制代码