Opened by willi at 2010-02-13 20:33
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Ich muss da leider gerade auch passen ;-(
Eventuell stimmt etwas mit dem Bild nicht, vllt. wurde es nur umbenannt und es ist in Wahrheit ein anderes Dateiformat oder sowas in der Art?
Es gibt jedenfalls noch eine Debugging-Option: $img->debug( 1 );
Eventuell hilft dir das weiter.
Hier nochmal der Code mit Debugging:
Grüße, pktm
Eventuell stimmt etwas mit dem Bild nicht, vllt. wurde es nur umbenannt und es ist in Wahrheit ein anderes Dateiformat oder sowas in der Art?
Es gibt jedenfalls noch eine Debugging-Option: $img->debug( 1 );
Eventuell hilft dir das weiter.
Hier nochmal der Code mit Debugging:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/Perl/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use Benchmark (qw/timediff timestr/);
use Image::BMP;
my $t0 = Benchmark->new();
my $img = Image::BMP->new();
$img->debug( 1 );
$img->open_file($Bin . '/cool_pig.bmp');
my ($r,$g,$b) = $img->xy_rgb(10,10);
my $t1 = Benchmark->new();
my $td = timediff($t1, $t0);
print "the code took:", timestr($td),"\n";
Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )