Thread *.BMP auslesen (24 answers)
Opened by willi at 2010-02-13 20:33

Gast willi
 2010-02-13 22:35
#132909 #132909
Hallo,
habe nur die erste zeile geƤndert da folgende meldung kam:
Quote
-bash: ./test.pl: /Perl/bin/perl: bad interpreter: No such file or directory


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
WSyS-Mini2:~# ./test.pl
the code took:74 wallclock secs (72.29 usr + 1.66 sys = 73.95 CPU)
WSyS-Mini2:~#


warum dauert das so lange??

View full thread *.BMP auslesen