请教perl的GD模块

komais

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. print "Hello, World...\n";
   
6. 
   
7. use GD;
   
8. my ($im,);
   
9. open DHOUT , ">*.out.png";
   
10. open DH,"*.png";
    
11. 
    
12. $im=new GD::Image(*DH);
    
13. my $red=$im->colorAllocate(255,0,0);
    
14. $im->filledRectangle(203,255,849,772,$red);
    
15. binmode DHOUT;
    
16. print DHOUT $im->png;
    
17. close DHOUT;
    
18. close DH;

复制代码

在对附件里的图1 和2 标注时，为什么图1不能被标注成红色呢？？
各位大侠 求给我个解释 谢谢了

iamlimeng

以truecolor方式打开图片，再进行操作：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use GD;
   
7. open DHOUT , ">out.png";
   
8. open DH,"1.png";
   
9. my $im = newFromPng GD::Image(*DH,1);
   
10. my $red=$im->colorAllocate(255,0,0);
    
11. $im->filledRectangle(10,10,150,150,$red);
    
12. binmode DHOUT;
    
13. print DHOUT $im->png;
    
14. close DHOUT;
    
15. close DH;
    
16. 
    
17. print "OK";

复制代码

komais

恩 谢谢了 在您的指导下，问题解决了。谢谢了~~~~~~~~~

komais

回复 2# iamlimeng


    谢谢了 万分感谢

zhxchnl

怎么把颜色做成透明的，让它透出下面的文字来？