source: Linux Magazine France numéro 81
Un petit script pour découper une grande image en plusieurs petites. Le code est à mon humble avis particulièrement élégant, perl c'est vraiment trop fort !

#!/usr/bin/perl
use strict;
use Image::Magick::Tiler;
Image::Magick::Tiler->new(
input_file => shift || die("usage: $0 image geometry [format]"),
geometry => shift || '2x2',
output_type => shift || 'png', write => 1, verbose => 1, )->tile()

Enregister le script dans un fichier tiler.pl et le script s'exécute avec un simple 'perl tiler.pl toto.png 3x2'
Il faut pour que cela fonctionne installer le package ImageMagick-perl via un simple 'yum install ImageMagick-perl' et installer Image::Magick::Tiler en passant par le CPAN via la commande ' perl -MCPAN -e 'install Image::Magick::Tiler' ' (il aurait été préférable de passer par la commande cpan2rpm pour l'installation mais ce n'est pas l'objet de ce fil).
Plus de détails sur la page http://search.cpan.org/~rsavage/Image-Magick-Tiler-1.00/lib/Image/Magick/Tiler.pm