JPEG画像の変換(libjpeg-turboで速くなる)

bench1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw(:all);
use Image::Magick;
use Imager;

my $has_imlib = eval q{ use Image::Imlib2; 1 };
warn "Image::Imlib2 is not available\n" if $@;

my $has_gd = eval q{ use GD::Image; 1 };
warn "GD::Image is not available\n" if $@;

my $input  = './images/input.jpg';
my $output = './images/output.jpg';

timethese 100, {
    'Image::Magick' => sub {
        my $img = Image::Magick->new;
        $img->Read($input);
        $img->Write($output);
    },
    'Imager' => sub {
        my $img = Imager->new;
        $img->read(file => $input);
        $img->write(file => $output);
    },
    $has_imlib ? (
        'Image::Imlib2' => sub {
            my $img = Image::Imlib2->new;
            $img->load($input);
            $img->save($output);
        },
    ) : (),
    $has_gd ? (
        'GD::Image' => sub {
            my $gd = GD::Image->newFromJpeg($input);
            open my $fh, ">", $output;
            print $fh $gd->jpeg;
            close $fh;
        },
    ) : (),
};

bench2.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw(:all);
use Image::Magick;
use Imager;

my $has_imlib = eval q{ use Image::Imlib2; 1 };
warn "Image::Imlib2 is not available\n" if $@;

my $has_gd = eval q{ use GD::Image; 1 };
warn "GD::Image is not available\n" if $@;

$has_gd = eval q{ use Image::Resize; 1 };
warn "Image::Resize is not available\n" if $@;

my $input  = './images/input.jpg';
my $output = './images/output.jpg';
my $width  = 80;
my $height = 60;

timethese 100, {
    'Image::Magick' => sub {
        my $img = Image::Magick->new;
        $img->Read($input);
        #$img->Set(size => $width.'x'.$height);
        $img->Resize(width => $width, height => $height);
        $img->Write($output);
    },
    'Imager' => sub {
        my $img = Imager->new;
        $img->read(file => $input);
        my $scaled = $img->scale(xpixels => $width);
        $scaled->write(file => $output);
    },
    $has_imlib ? (
        'Image::Imlib2' => sub {
            my $img = Image::Imlib2->new;
            $img->load($input);
            $img->create_scaled_image($width, $height);
            $img->save($output);
        },
    ) : (),
    $has_gd ? (
        'GD::Image' => sub {
            my $gd = GD::Image->newFromJpeg($input);
            my $img = Image::Resize->new($gd);
            $gd = $img->resize($width, $height);
            open my $fh, ">", $output;
            print $fh $gd->jpeg;
            close $fh;
        },
    ) : (),
};