Re: Optimize file renaming.

[EdwardG]

E:\test>dir
 Volume in drive E has no label.
 Volume Serial Number is 4266-6D09

 Directory of E:\test

26/05/2005  13:20    <DIR>          .
26/05/2005  13:20    <DIR>          ..
26/05/2005  13:05                 0 1.png
26/05/2005  13:05                 0 2.png
26/05/2005  13:05                 0 3.png
26/05/2005  13:05                 0 4.png
26/05/2005  13:05                 0 5.png
               5 File(s)              0 bytes
               2 Dir(s)  60,811,968,512 bytes free

E:\test>for %f in (*.png) do @perl -e "$new = substr('0'x3 . $ARGV[0],
+-7); `ren $ARGV[0] $new`;" %f

E:\test>dir
 Volume in drive E has no label.
 Volume Serial Number is 4266-6D09

 Directory of E:\test

26/05/2005  13:20    <DIR>          .
26/05/2005  13:20    <DIR>          ..
26/05/2005  13:05                 0 001.png
26/05/2005  13:05                 0 002.png
26/05/2005  13:05                 0 003.png
26/05/2005  13:05                 0 004.png
26/05/2005  13:05                 0 005.png
               5 File(s)              0 bytes
               2 Dir(s)  60,811,968,512 bytes free

E:\test>