Code: Select all
use Image::Magick;
$i = 0;
while ($i++ < 10000)
{
my ($image) = Image::Magick->new();
$x = $image->Read('logo:');
warn $x if "$x";
my(@statistics) = $image->Statistics();
}
Code: Select all
use Image::Magick;
$i = 0;
while ($i++ < 10000)
{
my ($image) = Image::Magick->new();
$x = $image->Read('logo:');
warn $x if "$x";
my(@statistics) = $image->Statistics();
}