forked from hmw3/Tips_and_Hacks
55 lines
998 B
Perl
55 lines
998 B
Perl
while (<DATA>) {
|
|
if (/([^\t]*)\t([^\t]*)/) {
|
|
$new_name{$1} = $2
|
|
}
|
|
}
|
|
|
|
chdir "/Users/Henry/Documents/WACS/MAST_HB";
|
|
|
|
foreach $old_name (sort keys %new_name) {
|
|
system "mv $old_name $new_name{$old_name}"
|
|
}
|
|
|
|
print "Done.\n"
|
|
|
|
__DATA__
|
|
Gen.xml 01-GEN.xml
|
|
Exod.xml 02-EXO.xml
|
|
Lev.xml 03-LEV.xml
|
|
Num.xml 04-NUM.xml
|
|
Deut.xml 05-DEU.xml
|
|
Josh.xml 06-JOS.xml
|
|
Judg.xml 07-JDG.xml
|
|
Ruth.xml 08-RUT.xml
|
|
1Sam.xml 09-1SA.xml
|
|
2Sam.xml 10-2SA.xml
|
|
1Kgs.xml 11-1KI.xml
|
|
2Kgs.xml 12-2KI.xml
|
|
1Chr.xml 13-1CH.xml
|
|
2Chr.xml 14-2CH.xml
|
|
Ezra.xml 15-EZR.xml
|
|
Neh.xml 16-NEH.xml
|
|
Esth.xml 17-EST.xml
|
|
Job.xml 18-JOB.xml
|
|
Ps.xml 19-PSA.xml
|
|
Prov.xml 20-PRO.xml
|
|
Eccl.xml 21-ECC.xml
|
|
Song.xml 22-SNG.xml
|
|
Isa.xml 23-ISA.xml
|
|
Jer.xml 24-JER.xml
|
|
Lam.xml 25-LAM.xml
|
|
Ezek.xml 26-EZK.xml
|
|
Dan.xml 27-DAN.xml
|
|
Hos.xml 28-HOS.xml
|
|
Joel.xml 29-JOL.xml
|
|
Amos.xml 30-AMO.xml
|
|
Obad.xml 31-OBA.xml
|
|
Jonah.xml 32-JON.xml
|
|
Mic.xml 33-MIC.xml
|
|
Nah.xml 34-NAM.xml
|
|
Hab.xml 35-HAB.xml
|
|
Zeph.xml 36-ZEP.xml
|
|
Hag.xml 37-HAG.xml
|
|
Zech.xml 38-ZEC.xml
|
|
Mal.xml 39-MAL.xml
|