Re: Problem with Image::Info
- From: Brian Wakem <no@xxxxxxxxx>
- Date: Sat, 28 Apr 2007 21:40:37 +0100
Gary wrote:
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use Image::Info qw(image_info dim);
my $Photo = param('photo');
my $info = image_info("$Photo");
print header;
print start_html(-title=>'My Photos', -bgcolor=>'#FFDEAD');
if (%info){
print "Good <br> \n";
}
print "<img SRC=\"$Photo\"/>",
print end_html;
$ perl tmp119.pl
Global symbol "%info" requires explicit package name at tmp119.pl line 12.
Execution of tmp119.pl aborted due to compilation errors.
I assume $info is a reference to a hash, in which case you need to read
perldoc perlref
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
.
- References:
- Problem with Image::Info
- From: Gary
- Problem with Image::Info
- Prev by Date: Re: Rounding up to the next .5
- Next by Date: Re: Rounding up to the next .5
- Previous by thread: Problem with Image::Info
- Index(es):
Relevant Pages
|