読者です 読者をやめる 読者になる 読者になる

"アニメーションGIFシャッフルするやつ"を Perlで書いてみた

perl

アニメーションGIFシャッフルするやつ - ミニマリストhitode909の日記


@さんの記事の Perl

コード

実質 3行ぐらいです.

#!perl
use strict;
use warnings;

use Imager;
use List::Util qw(shuffle);

die "Usage: $0 input_gif output_gif" unless @ARGV >= 1;
my $output = $ARGV[1] || 'output.gif';

my $img = Imager->new();
my @files = $img->read_multi(file => $ARGV[0]) or die $img->errstr;
Imager->write_multi({ file => $output, type => 'gif' }, shuffle(@files))
    or die $img->errstr;

結果

オリジナル シャッフル版

おわりに

ImageMagickを使えば簡単なのかって思って、Image::Magickをインストールしようと
しましたが、インストールできませんでした。ImageMagickに追従していないのか、
新しいコンパイラに対応していないのかはわかっていないですが、今なら Imagerで
基本的なことはできるので Imagerを使えばいいのではないでしょうか。