画像を決まった数に分割するPerlワンライナー（Image::Magick::Tiler使用）

Tweet

昨日の記事を書いた後、PPMのモジュールに、Image::Magick::Tiler と言うのがあるのに気づきました。Image::Magickを利用したユーティリティモジュールですね。画像のタイリング分割に特化しています。

使用例：

D:\SOLID_SNAKE>perl -MImage::Magick::Tiler -e "Image::Magick::Tiler->new(input_file=>'snake.png', geometry=>'1x5', write=>1, verbose=>1)->tile();"
Image::Magick:        V 6.4.1.
Image::Magick::Tiler: V 1.00.
Geometry:             1x5 parsed as NxM+x+y = 1x5+0+0.
Image:                snake.png.
Image size:           (800, 3000).
Tile size:            (800, 600) (before applying x and y).
Tile size:            (800, 600) (after applying x and y).
Wrote:                1-1.png.
Wrote:                2-1.png.
Wrote:                3-1.png.
Wrote:                4-1.png.
Wrote:                5-1.png.
 
D:\SOLID_SNAKE>

ファイル名が指定できないっぽい部分を我慢すれば、使えるかもしれませんね。

2008.06.21 20:50 投稿　大野 義貴 [Perl] | 固定リンク |