#!/usr/bin/perl
#

$CONVERT='/usr/bin/convert'   ;
$GEOMETRY="120x80" ;      # gif image の大きさ指定, convert での解像度指定
$RM = '/bin/rm'; 
$MV = '/bin/mv';
$NUM = 1; 

# オプション
while (@ARGV) {
    last unless ($ARGV[0] =~ /^-/);
    $_ = shift;                           
    if (/^-e/) { $EXT = shift; next; };   # 入力ファイル形式
    if (/^-o/) { $OUT = shift; next; };   # 出力ファイル形式
    if (/^-g/) { $GEOMETRY = shift; next; };   # 出力ファイルサイズ
    if (/^-n/) { $NUM = shift; next; };   # 数字の指定
    die "unknown option $_";
}

opendir(DIR, ".");
@FILES = grep(/$EXT$/, readdir(DIR));

@FILES = sort(@FILES);

foreach $FILE (@FILES){

    $IMG = sprintf("%03d", $NUM);

    print "$CONVERT -geometory $GEOMETRY $FILE...$IMG.$OUT \n" ;
    system ("$CONVERT -geometry $GEOMETRY $FILE $IMG.$OUT") ;

    $NUM++;
}