以二進制的形式輸出

豬鼻插蔥

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. }
    

復制代碼

想把結(jié)果以二進制的形式輸出 這個怎么解決？

jason680

想把結(jié)果以二進制的形式輸出 這個怎么解決？
豬鼻插蔥 發(fā)表于 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


    把字節(jié)按2進制解碼

wind_ch

回復 4# starshiftchen


    因為二進制數(shù)據(jù)不是0,1組成的字符串

黑色陽光_cu

樓主的腳本有一個不算bug的bug~~~

保證在windows上也可用：

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