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

topeg

2010-02-14 01:37

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Das Modul ist PurePerl.
Soweit ich es gesehen habe, wird das Bild erst geparst wenn man etwas davon ließt, darum braucht das erste lesen auch so lange.
Mit anderen Modulen wie GD oder Image::Magick sollte es schneller gehen.

mal mit GD:

Code (perl): (dl )

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

my $img = GD::Image->new($Bin . '/a.bmp');
my $index=$img->getPixel(10,10)
my ($r,$g,$b) = $img->rgb($index);

mal mit Image::Magick

Code (perl): (dl )

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

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

Ungetestet, ohne Fehlerabfragen.

Edit: Aufruf von Image::Magick korrigiert.
Last edited: 2010-02-14 13:56:32 +0100 (CET)