以二进制的形式输出

猪鼻插葱

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. my $filename="/home/ztl/123.jpg";
   
4. open JPG,$filename;
   
5. while (<JPG>)
   
6. {
   
7.   if(/\0$/)
   
8. {
   
9.    print   $_;//这个地方如何输出可以使输  
   
10.                    出格式如01110110的格式？
    
11.    print "11111";
    
12. }
    
13. 
    
14. }
    

复制代码

想把结果以二进制的形式输出 这个怎么解决？

jason680

想把结果以二进制的形式输出 这个怎么解决？
猪鼻插葱 发表于 2010-11-18 16:51

你要的是这个吗?

1. use strict;
   
2. my $filename="/home/ztl/123.jpg";
   
3. open(JPG,$filename) or die "Can't open $filename\n";
   
4. my($w);
   
5. while(read(JPG,$w,1)) {    # to read the file each word
   
6.     my $binary =  unpack("B8",$w);   
   
7.     print "$binary, ";
   
8. }

复制代码

猪鼻插葱

回复 2# jason680


   多谢多谢 应该是这个了 我自己研究一下

starshiftchen

为啥要unpack一下？

shenyue_sam

回复 4# starshiftchen


    把字节按2进制解码

wind_ch

回复 4# starshiftchen


    因為二進制數據不是0,1組成的字符串

黑色阳光_cu

楼主的脚本有一个不算bug的bug~~~

保证在windows上也可用：

open(JPG, "<:raw", $filename)