Perl Image :: Resize-Modul und PNG-Bilder

Question

Ich versuche herauszufinden, wie Sie das Image::Resize Perl-Modul verwenden, um PNG-Bilder zu verkleinern. Der folgende Code tut Arbeit:

 my $image = Image::Resize->new($read_path); 
     my $gd = $image->resize(1000,1000); 
     open (DISPLAY,">$write_path") || die "Cant write $write_path, Reason: $!"; 
      binmode DISPLAY; 
      if ($read_path =~ /\.jpg$/i) {   
      print DISPLAY $gd->jpeg(); 
      } elsif ($read_path =~ /\.gif$/i) {   
      print DISPLAY $gd->gif(); 
      } elsif ($read_path =~ /\.png$/i) {   
      print DISPLAY $gd->png(); 
      } 
     close DISPLAY; 

jedoch das Ergebnis nicht das, was würde Ich mag (die skalierte Version hat einen schwarzen Hintergrund, wenn Sie ein transparentes PNG konvertieren)

Original:

Scaled:

Wie kann ich sagen, dass es einen weißen Hintergrund auf das Bild setzen soll? Ich überprüfte die Man-Page aus, konnte aber nichts sehen hilfreich:

http://search.cpan.org/dist/Image-Resize/Resize.pm

Dank!

UPDATE: Für alle mit Interesse, was ich tun am Ende wurde sie nur von einem .png .jpg Umwandlung convert verwendet wird;

convert "$read_path" -background white -flatten "$path/$filename" 

, die tatsächlich in diesem Fall besser klappt, wie wir brauchen nicht die Transparenz (und jpg sind viel kleiner in der Größe)

Answer 1

Das Image::Resize Modul nur das tut, das Bild passt die Größe.

Es gibt jedoch ein Objekt GD::Image zurück. Sie können dann die volle Leistung von gd für Ihr Bild verwenden. Die Methode GD::Image::transparent ist möglicherweise das, wonach Sie suchen. Kopiert von docs

# allocate some colors 
my $white = $im->colorAllocate(255,255,255); 

# make the background transparent and interlaced 
$im->transparent($white); 
$im->interlaced('true'); 

Die $im ist ein GD::Image Objekt, in Ihrem Fall zurück von Image::Resize::resize.

Das spezielle Problem wird nicht erklärt und ich bin mir nicht sicher, wie Sie den schwarzen Hintergrund aufnehmen, aber wenn das oben genannte nicht tut, finden Sie die spezifische Lösung mit der GD::Image.

---

This post kann auf eine direkte Antwort führen, durch die Verknüpfung zu this post : ermöglichen die saveAlpha() GD Einstellung.

Danke an Wick für den Kommentar.