perl1

perlです。
カレントディレクトリのファイル名に連番をつける。

---------------------------------------------------------
$i=-2;
opendir(DIR, ".");
while ($file = readdir(DIR)) {
if($i>=0){
print "$file";
print $i;
print "\n";
if($i<10){
rename($file,"0".$i.$file);
}
else{
rename($file,$i.$file);
}
}
$i++;
}
closedir(DIR);

---------------------------------------------------------