Mercurial > spc_convert
view old/unrename.pl @ 9:477c36226481 tip
added old scripts for historical interest.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 21 Oct 2011 07:46:18 -0700 |
parents | |
children |
line wrap: on
line source
1 @www = qw(AnnoyingKnock1.wav2 AnnoyingKnock2.wav3 AppleOfEnlightenment.wav4 Arcade.wav5 Battle01.wav6 Battle02.wav7 Battle03.wav8 Battle04.wav9 Battle05.wav10 Battle06.wav11 Battle07.wav12 Battle08.wav13 Battle09.wav14 Battle10.wav15 Bicycle.wav16 BossIntro.wav17 BrickRoad.wav18 Bus.wav19 Cave1.wav20 Cave2.wav21 Cave3.wav22 CaveOfThePast.wav23 ChaosTheater.wav24 CoffeeBreak.wav25 Dalaam.wav26 DalaamIntro.wav27 DeepDarkness.wav28 Defeated.wav29 Delivery.wav30 DrAndonuts.wav31 DrugStore.wav32 DungeonMan.wav33 DustyDunesDesert.wav34 EightMelodies.wav35 Ending1.wav36 Ending2.wav37 Ending3.wav38 FileSelect.wav39 FireSpring.wav40 FlyingMan.wav41 Fourside.wav42 Giygas1.wav43 Giygas2.wav44 Giygas3.wav45 Giygas4.wav46 Giygas5.wav47 GiygasDeath.wav48 GiygasIntro.wav49 GiygasPath.wav50 GiygasStatic.wav51 GrapefruitFalls.wav52 HappyHappy.wav53 HiddenTrack.wav54 Home.wav55 Hospital.wav56 Hotel1.wav57 Hotel2.wav58 Hotel3.wav59 Hotel4.wav60 HotelScaraba.wav61 House1.wav62 House2.wav63 House3.wav64 Intro1.wav65 Intro2.wav66 IntroDemo.wav67 IntroTitle.wav68 JackiesCafe.wav69 LevelUp.wav70 LostUnderworld.wav71 Magicant1.wav72 Magicant2.wav73 MagicantDepart.wav74 MagicantEnter.wav75 MagicCake.wav76 MasterBelchBase.wav77 MonkeyCave.wav78 Moonside.wav79 Mu.wav80 NewGame.wav81 Night.wav82 Onett1.wav83 Onett2.wav84 OnettBuzz1.wav85 OnettBuzz2.wav86 OnettBuzz3.wav87 OnettNight1.wav88 OnettNight2.wav89 OnettNight3.wav90 Paula.wav91 PeacefulRest.wav92 Photographer.wav93 PinkCloud.wav94 Pokey.wav95 PokeyIntro.wav96 PokeysHouse.wav97 PokeysHouseBuzz.wav98 PowerUp.wav99 Pray.wav100 Pyramid.wav101 Return1.wav102 Return2.wav103 RideSub.wav104 RideUFO.wav105 Robots.wav106 Runaway5Bus1.wav107 Runaway5Bus2.wav108 Runaway5Bus3.wav109 Runaway5Song1.wav110 Runaway5Song2.wav111 Sailing1.wav112 Sailing2.wav113 SaturnValley.wav114 SaturnValley2.wav115 Scaraba.wav116 ScarabaDesert.wav117 SeaOfEden.wav118 SnowWood.wav119 SnowWood2.wav120 SoundStone.wav121 SoundStone2.wav122 Summers.wav123 TendaVillage.wav124 Tent.wav125 Tessie1.wav126 Tessie2.wav127 Threed.wav128 Topolla.wav129 Twoson.wav130 Venus.wav131 Win1.wav132 Win2.wav133 Winters.wav134 YourSanctuary1.wav135 YourSanctuary2.wav136 Zombies.wav);140 $dir='./';141 opendir DIR, $dir;142 @files=grep !/^\./, readdir(DIR);143 $" = "\n";144 #print "@files";145 $name = "AA";146 $par = 0;147 for (@files){149 if ($_=~m/\.wav$/i) {150 #print "$_\n";151 rename "C:/spc700/$_", "C:/spc700/$www[$par]";152 $name++;153 $par++;158 }162 }