image::magick info søges

Jeg har IKKE prøvet ImageMagick på Windows, men følgende script virkede på Linux med ImageMagick, måske kan det hjælpe dig videre...

#!/usr/bin/perl -w

# use strict;
use Image::Magick;

my($filename)= \"billede31.gif\"; #@_;
# my $image = Image::Magick->new(magick=>\'JPEG\');
my $image = Image::Magick->new(magick=>\'GIF\');

print \"$filename\\n\";
open(DATA, $filename) or return 0;
        $image->Read(file=>DATA);
close(DATA);

my $str = $image->Get(\'filesize\');
print \"size inden $str\\n\";
my $format = $image->Get(\'format\');
print \"format inden $format\\n\";
my $width1 = $image->Get(\'width\');
print \"width inden $width1\\n\";
my $height1 = $image->Get(\'height\');
print \"height inden $height1\\n\\n\";

my($width,$height)= $image->Get(\"width\",\"height\");
my $scale= 150 / $width;
$image->Scale(width => $width*$scale, height => $height*$scale);
$image->Crop(width => $width*$scale, height => $height*$scale);


my $stre = $image->Get(\'filesize\');
print \"size efter $stre\\n\";
$format = $image->Get(\'format\');
print \"format efter $format\\n\";
$width1 = $image->Get(\'width\');
print \"width efter $width1\\n\";
$height1 = $image->Get(\'height\');
print \"height efter $height1\\n\";


$image->Condense;

$filename =~ s/(\\.\\w+)$/-test$1/;

open(DATA, \">$filename\") or return 0;
$image->Write(file=>DATA, filename=>$filename);
close(DATA);

Mahler:
Desværre køre din kode heller ikke den exiter ved
my $image = Image::Magick->new(magick=>\'GIF\');

/NaZaq

Det er sandsynligvis fordi du har en rimeligt ny udgave af ImageMagick. De nyere udgaver understøtter ikke løngere GIF, så det skal laves om til PNG.

Ja det ville være rart :-)
Men ak... det er ikke her problemet ligger.

/NaZaq

Hmmm jeg trækker points tilbage