GD::SecurityImage - #176527 (Fragen zu Perl-Modulen)

GwenDragon

2014-07-21 09:01

User since
2005-01-17
14748 Artikel
Admin1

2014-07-20T15:40:30 bianca
2008-03-12T16:32:33 bloonix
nur so am Rande... ich hab bei mir auch noch sowas testweise liegen:

Hab eben mal dieses alte Script von Bloonix probiert und hab zwei Fragen:
a) Wie bekomme ich die Meldung "Possible attempt to put comments in qw() list at test.pl line 34." weg?

Statt

Code (perl): (dl )

$image->create(qw/ttf rect #660000 #eeeeee/);

dann

Code (perl): (dl )

$image->create('ttf', 'rect', '#660000', '#eeeeee');

Oder die spezielle Warnung kurzfristig abschalten:

Code (perl): (dl )

1
2
3

no warnings 'qw';
$image->create(qw/ttf rect #660000 #eeeeee/);
use warnings;

2014-07-20T15:40:30 bianca
b) Was muss ich ändern, damit lesbare PNG's rauskommen? Mein IrfanView sagt, die Datei sei defekt.

Ich nehme mal an dass

Code (perl): (dl )

binmode STDOUT;

fehlt.
Steht sogar in den Beispielen CPAN:

GD::SecurityImage drin ;)
Last edited: 2014-07-21 09:06:32 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten