Thread *.BMP auslesen
(24 answers)
Opened by willi at 2010-02-13 20:33
Hallo,
habe nur die erste zeile geƤndert da folgende meldung kam: Quote und den pfad zum bild! Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #!/usr/bin/perl use strict; use warnings; use FindBin qw/$Bin/; use Benchmark (qw/timediff timestr/); use Image::BMP; my $t0 = Benchmark->new(); my $img = new Image::BMP; $img->open_file($Bin . '/a.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"; Quote warum dauert das so lange?? |