実用！ Perlで縦長連続画像を1フレームずつバラして鑑賞

（このエントリのオリジナルは、M.C.P.C.: 縦長連続画像を分割してムフフです）

縦長に連続したコマが連なっている画像、どうやって見ていますか？ 最近のグラフィックビューアだと、画像サイズに合わせて拡大縮小してくれたりするのですけれども、そもそも縦長に過ぎる画像だと、拡大率を、長辺に合わせたら画像がよく見えないし、かといって短辺に合わせたら、全部見るのにスクロールして見なくてはなりません。

だから、そんな画像、Perlと言う名の青龍刀で切り刻んでしまいましょう！

モジュールの準備

今回使うモジュールは、Image::Magickというものですのが、一昔前まではインストールにちょっとコツが必要なモジュールだったと思います。また、使っているOSやPerlによっても入れ方が微妙に違うので説明が面倒ですから、各自調査してください。

WindowsのActivePerl 5.8.xを使っていて、スタートフォルダのプログラムグループに、Perl Package Managerというプログラムが表示されている場合は、こちらにインストールの仕方を掲載してあります。

スクリプト

Image::Magickの使い方は、

:: Cepheid :: - ImageMagickの使用例に詳しいです。

Filename: split_image.pl

#!/usr/bin/perl
# Filename: split_image.pl
# 400x300の画像に切り出します
 
use strict;
use warnings;
use Image::Magick;
use File::Basename;
 
our $frame_width  = 400;
our $frame_height = 300;
 
# main 
 
foreach ( @ARGV ){
  my $filename = $_;
  print "$filename\n";
  if ( -e $filename ) {
    cut_img( $filename );
  }
}
exit;
 
 
sub cut_img {
  my $filename = shift;
  our ( $frame_width, $frame_height );
  my $img_orig = Image::Magick->new;
  $img_orig->Read( $filename );
  # via http://www.ss.iij4u.or.jp/~somali/web/im_example/get.html
  my ($width, $height) = $img_orig->Get('width', 'height');
  my $frame = $height / $frame_height;
  
  if ( $frame > 1 ) {
    for ( my $i = 0; $i < $frame; $i++ ) {
      my $img = $img_orig->Clone();
      # via http://www.ss.iij4u.or.jp/~somali/web/im_example/crop.html
      $img->Crop( width  => $frame_width,
                     height => $frame_height,
                     x => 0,
                     y => $frame_height * $i,
            );
      $img->write( make_filename( $filename, $i ) );
      undef $img;
    }
  }
  
  undef $img_orig;
  return;
}
 
 
sub make_filename {
  my $path = shift;
  my $num  = shift;
  my($filename, $directories, $suffix)
    = fileparse($path, qr/\.[^.]*/ );
  return "$directories${filename}_$num$suffix";
}
 
 
__END__

実行例

実行前に警告！ ファイル上書きされても関知しません！

懐かしの外人4コマでやってみました。

使用前

コンソール

D:\4koma>split_image.pl 01_0001_2.jpg
01_0001_2.jpg
 
D:\4koma>

というわけで、今回は、縦長連続画像を分割するという、インターネットに長くいる人ほどなぜか有用性が分かるというスクリプトを作ってみました。

これ何に役立つの、ていう人もいるかもしれませんけれども、こういう地味ーなのって、Webのバックヤードでこっそり役立っていたりするんですよね。