[Perl]BMP图片转TXT，暂时只支持黑白，0和1

523066680

1. 
   
2. =info
   
3.     Code: 523066680
   
4.     Date: 2015-11
   
5. =cut
   
6. 
   
7. use utf8;
   
8. use IO::Handle;
   
9. STDOUT->autoflush(1);
   
10. binmode(STDOUT, ":encoding(gbk)");
    
11. 
    
12. my $file = "1.bmp";
    
13. 
    
14. our $READ;
    
15. open $READ, "<:raw", $file or die "$!";
    
16. 
    
17. GET_INFO:
    
18. {
    
19.     our $v;
    
20.     read($READ, $v, 14, 0);
    
21.     our ($type, $bfSize, $res1, $res2, $offset) = (unpack 'SLSSL', $v);
    
22. 
    
23.     read($READ, $v, 4+4+4+2+2, 0);
    
24.     our ($headSize, $width, $height, $planes, $bitCount) = (unpack 'L3S2', $v);
    
25. 
    
26.     our $Compoments_per_pixel = $bitCount / 8;
    
27.     #RGBA, 4bytes, 32bit
    
28.     #RGB， 3bytes, 24bit
    
29. 
    
30.     #Windows的BMP规定一行所占的字节数须是 4字节的倍数，不足的以0填充
    
31.     our $rowLen = ($bfSize - $offset) / $height;
    
32.     our $rowCut = ($width * $Compoments_per_pixel) % 4; #RGBA的情况下自然为0
    
33. 
    
34.     printf "文件字节数：%04x -> %d\n", $bfSize, $bfSize;
    
35.     printf "位图偏移量：%04x -> %d\n", $offset, $offset;
    
36.     printf "   宽 × 高：%d×%d\n", $width, $height;
    
37.     printf "  位图色深：%d 位\n", $bitCount;
    
38. }
    
39. 
    
40. TO_TEXT:
    
41. {
    
42.     #跳过文件头
    
43. 
    
44.     seek($READ, $offset, 0);
    
45. 
    
46.     my ($R, $G, $B);
    
47.     my $col = 0;
    
48.     my @all;
    
49.     my $tstr="";
    
50. 
    
51.     while ( read( $READ, $v, $Compoments_per_pixel, 0) )
    
52.     {
    
53.         $col++;
    
54.         ($B, $G, $R) = unpack("C$Compoments_per_pixel", $v);   #C4 or C3
    
55. 
    
56.         $tstr .= ($R || $G || $B) > 0 ? 0 : 1; #黑白取反, 白色为0，其他色为1
    
57. 
    
58.         if ($col == $width)
    
59.         {
    
60.             unshift @all, $tstr;
    
61.             seek($READ, $rowCut, 1);   #从当前去掉多余的填充字节
    
62.             $col = 0;
    
63.             $tstr="";
    
64.         }
    
65.     }
    
66. 
    
67.     close $READ;
    
68. 
    
69.     print join("\n", @all);
    
70. 
    
71. }

复制代码

文件字节数：1426 -> 5158
位图偏移量：0036 -> 54
   宽 × 高：58×29
  位图色深：24 位
0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
0000000011110000000000000000000000000000000000000000000000
0000000111111000000000000000000000000000000000000000000000
0000000111111100000000000000000000000000000000000000000000
0000000110001110000000000000000000000000000000000000000000
0000001110001110000000000000000000000100000000000000000000
0000001110001110000000000000000000001110000000000000000000
0000011100001110000000000000000000001110000000000000000000
0000011100001110000000000000000000001110000000000000000000
0000011000011110000111110000000011111111111111110000000000
0000111011111110001111111000000111111111111111111000000000
0000110111111100011111111100000111111111111111111000000000
0001110111111110111000011100000000011100000000000000000000
0001110000011111111000011100000000011100000000000000000000
0001100000000111110000011100000000011100000000000000000000
0011100000000011110000011100000000011100000000000000000000
0011100000000011110000111100000000011111000000000000000000
0111000000000011110000111100000000001111100000000000000000
0011000000000011111111111111111000001111100000000000000000
0010000000000011111111100111111000000000000000000000000000
0111111111111111111110000011110000000000000000000000000000
0111111111111110000000000000000000000000000000000000000000
0011111111111100000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000

523066680

轮廓贴合(未完善)

1. 
   
2. 514 x 268
   
3. 7 14
   
4.                                __                       ?^.              
   
5.                                ,                       _ 2 _,,           
   
6.                            ( "+' "=~._            ,&=~,   __,4           
   
7.                              `)  "``"0__.""___""%_   ~ ,.",            
   
8.                             { _"$ (   ," ,*`    "+,",_ 2 *__            
   
9.                              "'  %+ _" _"          "{"+=&,_              
   
10.                                    ,  ,                7"*+."%,         
    
11.                                   ,  2    _.=^""`7""*=,_     "%_%,      
    
12.                                  _  2  ,*" __.+;+=+.    `"<_    %,".     
    
13.                                 _' , ='_$"` )  |   _.%      ".    ",".   
    
14.                                 '  0'_6+.   0 *0, _", ",  ""  ",    % :  
    
15.                                ?    2 7{^%.";  ".`  ..+.: :    ,(    $ (
    
16.                               $    ?_*+*    _ _+ _ ;=~.' :* `"" ";    % .
    
17.                              ?    ?  9*"2 ?% "%.' [ :     %7{     (     $
    
18. ",_                       _"   _'      '_  ``    *='       %_+,       |2
    
19.    "%&_                  _?   _+        ``                    "%_7"+=&.:2
    
20.       "$3+._          _="   _<                                   `"=~~="
    
21.          `"=._""^"""`   _,="                                             
    
22.                7""^*^""`

复制代码

1. 380 x 198
   
2. 7 18
   
3.                        ":                ;,           
   
4.                     %,"` "1<_  _,.._,4""{  =='        
   
5.                      [_".%  .',"`  `*.%__'3_)         
   
6.                           , ,`         "^+~2=,_      
   
7.                          ? ? _."` ____ `"=.   ".".   
   
8.                         ? ?+_>" 2 {   +?,  ,_%.  '.:  
   
9.                        '   ''.%.0  %" 6.~%  ( _&   %'
   
10.                      _   , %.+:,.%(,".(   *0.   3   (4
    
11. "%_               _"  ,'    *.              ="=.__ {3
    
12.      "0+~___  __."  _*                           "^*"
    
13.           `"^+++""`                                   
    

复制代码