Perl如何不使用ImageMagick把JPG转BMP呢？

pluschen

ImageMagick太大了，以至于pp打包的时候很麻烦。
GD又不支持BMP。

CPAN上没找到相关模块。

Perl如何可以做到这件事呢？

engrol

大的不是ImageMagick，而是JPEG的库。而没有JPEG库，你要自己读取JPEG文件，虽说可能，但工作量太大了。
BMP文件的格式比较简单，就是一个简单的文件头+三个字节一个点方式排在一起，自己操作都是非常容易的。

engrol

有人写了个GD写BMP文件的代码。

1. 
   
2. #! perl -slw
   
3. use strict;
   
4. use GD;
   
5. 
   
6. my $img = GD::Image->newFromJpeg( $ARGV[ 0 ], 1 )
   
7.     or die "$ARGV[ 0 ] : $!";
   
8. 
   
9. my( $width, $height ) = $img->getBounds();
   
10. 
    
11. ( my $bmpFile = $ARGV[ 0 ] ) =~ s[.jpg$][.bmp]i;
    
12. open BMP, '>:raw', $bmpFile or die "$bmpFile : $!";
    
13. binmode BMP;
    
14. 
    
15. printf BMP '%s', pack 'A2ISSI', 'BM', $width * $height +54, 0, 0, 54;
    
16. 
    
17. printf BMP '%s', pack 'IiiSSIIiiII',
    
18.     40, $width, $height, 1, 24, 0, $width * $height, 11811, 11811, 0,
    
19. +0;
    
20. 
    
21. for my $y ( reverse 0 .. $height-1 ) {
    
22.     for my $x ( 0 .. $width-1 ) {
    
23.         printf BMP '%s', pack 'CCC', reverse $img->rgb( $img->getPixel
    
24. +( $x, $y ) );
    
25.     }
    
26. }
    
27. close BMP;
    

复制代码

pluschen

高手就是不一样啊！拜谢！～
解决了。
这段代码可以用。

pluschen

不过这段代码的CPU的占用好高。
=。=