关于GD图像在windows下输出png的问题

slayer_axe

我用GD绘图后，print FH $img->png将图片输出到文件，在ubuntu下是成功的，但是在windows下却无法输出图像，十分不解，用cpan上的示例代码也是一样的结果。

1. #!/usr/bin/perl -w
   
2.    use strict;
   
3.    use GD;
   
4.    use GD::Simple;
   
5. 
   
6. 
   
7.     # create a new image
   
8.     my   $img = GD::Simple->new(400,250);
   
9. 
   
10.     # draw a red rectangle with blue borders
    
11.     $img->bgcolor('red');
    
12.     $img->fgcolor('blue');
    
13.     $img->rectangle(10,10,50,50);
    
14. 
    
15.     # draw an empty rectangle with green borders
    
16.     $img->bgcolor(undef);
    
17.     $img->fgcolor('green');
    
18.     $img->rectangle(30,30,100,100);
    
19. 
    
20.     # move to (80,80) and draw a green line to (100,190)
    
21.     $img->moveTo(80,80);
    
22.     $img->lineTo(100,190);
    
23. 
    
24.    open(FH,'>1.png') || die $!;
    
25.    # convert into png data
    
26.    print FH $img->png;
    
27.    close(FH);

复制代码

zhlong8

linux 下可以 win 下不可以就要考虑下系统差异，这里唯一可能就是 binmode 了

slayer_axe

binmode FH;
搞定了