#!/usr/sbin/perl
#
#
# programme pour prendre les fichiers d'images en sortie de explore
# numérotés de 1 à XXX vers un fomat 000001 à 000XXX pour animation
#
# (c)1998 Emmanuel PIERRE
#          epierre@e-nef.com
#          http://www.e-nef.com/users/Emmanuel.PIERRE
#

foreach (<script.*>) {

	($num)=(/script\.(\d*)/);
	for($i=length($num);$i<=6;$i++) {
		$num="0".$num;
	}

	rename($_,"script.".$num); 

}