Proportionales resizing: GD, Image::Magick, Imager, etc... - #4022 (Perl/CGI)

cocko

2005-01-15 01:54

User since
2005-01-10
18 Artikel
BenutzerIn
[default_avatar]

Ich wollte mir vor ein paar Wochen mal so etwas programmieren (ein paar Sachen von Strat abgeschaut ;-)):

http://www.nabooisland.com/scripts/NIAlbum.pm

Irgendwie will das Package allerdings noch nicht so wirklich funktionieren:

D:\>perl test.pl
Can't use an undefined value as a symbol reference at
D:/Programme/Programmiersprachen_Environment/ActivePerl/site/lib/GD.pm l
ine 184 (#1)
(F) A value used as either a hard reference or a symbolic reference must
be a defined value. This helps to delurk some insidious errors.

Uncaught exception from user code:
Can't use an undefined value as a symbol reference at D:/Programme/Progr
ammiersprachen_Environment/ActivePerl/site/lib/GD.pm line 184.
GD::Image::newFromJpeg('GD::Image', 'ap_P0001.jpg') called at d:/module/
NIAlbum/lib/NIAlbum.pm line 76
NIAlbum::create_thumb('NIAlbum=HASH(0x225160)', 'e:/www/webroot/gallery-
images/bla', 'e:/www/webroot/thumb') called at test.pl line 11

test.pl:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use lib "d:/module/NIAlbum/lib";
use NIAlbum;

my $gallery = NIAlbum->new();
my $thumb = $gallery->create_thumb( "e:/www/webroot/gallery-images/bla", "e:/www/webroot/thumb" );

\n\n