#!/usr/bin/perl

#設定ファイルの読み込み
# オプション解析
while (@ARGV) {
    last unless ($ARGV[0] =~ /^-/);
    $_ = shift;                           
    if (/^-e/) { $EXT = shift; next; };       # 入力ファイル形式
    die "unknown option $_";
}

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

$i = 0; 
foreach $FILE (@FILES){
    
    $IMAGE_NUM = $FILE + $n;
    $IMAGE_NUM =~ s/\.$EXT//;
    $IMAGE = sprintf("%03d", $IMAGE_NUM);

    print "$mv $FILE...$IMAGE.$EXT \n" ;
    system ("mv $FILE $IMAGE.$EXT") ;
}