*.BMP auslesen - #132950 (Allgemeines zu Perl)

Gast willi

2010-02-14 12:38

mit GD kommt bei diesen quellcode:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use GD;

my $img = GD::Image->new($Bin . '/red.bmp');
my $index=$img->getPixel(10,10);                #<---Denke mal das du dort das ";" vergessen hast! ohne geht es auch nicht
my ($r,$g,$b) = $img->rgb($index); 
print "$r $g $b";

folgende Fehlermeldung

Quote
Can't call method "getPixel" on an undefined value at ./test3.pl line 8.

und mit Image::Magick kommt bei diesen quellcode:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use Image::Magick;

my $img = Image::Magick->new($Bin . '/rot.bmp');
my ($r,$g,$b) = $img->GetPixel(x=>10,y=>10);
print "$r $g $b";

folgende Fehlermeldung

Quote
Use of uninitialized value $r in concatenation (.) or string at ./test3.pl line 9.
Use of uninitialized value $g in concatenation (.) or string at ./test3.pl line 9.
Use of uninitialized value $b in concatenation (.) or string at ./test3.pl line 9.

Also auch nicht wirklich das wahre