Mercurial > spc_convert
annotate 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 |
rev | line source |
---|---|
rlm@9 | 1 @www = qw(AnnoyingKnock1.wav |
rlm@9 | 2 AnnoyingKnock2.wav |
rlm@9 | 3 AppleOfEnlightenment.wav |
rlm@9 | 4 Arcade.wav |
rlm@9 | 5 Battle01.wav |
rlm@9 | 6 Battle02.wav |
rlm@9 | 7 Battle03.wav |
rlm@9 | 8 Battle04.wav |
rlm@9 | 9 Battle05.wav |
rlm@9 | 10 Battle06.wav |
rlm@9 | 11 Battle07.wav |
rlm@9 | 12 Battle08.wav |
rlm@9 | 13 Battle09.wav |
rlm@9 | 14 Battle10.wav |
rlm@9 | 15 Bicycle.wav |
rlm@9 | 16 BossIntro.wav |
rlm@9 | 17 BrickRoad.wav |
rlm@9 | 18 Bus.wav |
rlm@9 | 19 Cave1.wav |
rlm@9 | 20 Cave2.wav |
rlm@9 | 21 Cave3.wav |
rlm@9 | 22 CaveOfThePast.wav |
rlm@9 | 23 ChaosTheater.wav |
rlm@9 | 24 CoffeeBreak.wav |
rlm@9 | 25 Dalaam.wav |
rlm@9 | 26 DalaamIntro.wav |
rlm@9 | 27 DeepDarkness.wav |
rlm@9 | 28 Defeated.wav |
rlm@9 | 29 Delivery.wav |
rlm@9 | 30 DrAndonuts.wav |
rlm@9 | 31 DrugStore.wav |
rlm@9 | 32 DungeonMan.wav |
rlm@9 | 33 DustyDunesDesert.wav |
rlm@9 | 34 EightMelodies.wav |
rlm@9 | 35 Ending1.wav |
rlm@9 | 36 Ending2.wav |
rlm@9 | 37 Ending3.wav |
rlm@9 | 38 FileSelect.wav |
rlm@9 | 39 FireSpring.wav |
rlm@9 | 40 FlyingMan.wav |
rlm@9 | 41 Fourside.wav |
rlm@9 | 42 Giygas1.wav |
rlm@9 | 43 Giygas2.wav |
rlm@9 | 44 Giygas3.wav |
rlm@9 | 45 Giygas4.wav |
rlm@9 | 46 Giygas5.wav |
rlm@9 | 47 GiygasDeath.wav |
rlm@9 | 48 GiygasIntro.wav |
rlm@9 | 49 GiygasPath.wav |
rlm@9 | 50 GiygasStatic.wav |
rlm@9 | 51 GrapefruitFalls.wav |
rlm@9 | 52 HappyHappy.wav |
rlm@9 | 53 HiddenTrack.wav |
rlm@9 | 54 Home.wav |
rlm@9 | 55 Hospital.wav |
rlm@9 | 56 Hotel1.wav |
rlm@9 | 57 Hotel2.wav |
rlm@9 | 58 Hotel3.wav |
rlm@9 | 59 Hotel4.wav |
rlm@9 | 60 HotelScaraba.wav |
rlm@9 | 61 House1.wav |
rlm@9 | 62 House2.wav |
rlm@9 | 63 House3.wav |
rlm@9 | 64 Intro1.wav |
rlm@9 | 65 Intro2.wav |
rlm@9 | 66 IntroDemo.wav |
rlm@9 | 67 IntroTitle.wav |
rlm@9 | 68 JackiesCafe.wav |
rlm@9 | 69 LevelUp.wav |
rlm@9 | 70 LostUnderworld.wav |
rlm@9 | 71 Magicant1.wav |
rlm@9 | 72 Magicant2.wav |
rlm@9 | 73 MagicantDepart.wav |
rlm@9 | 74 MagicantEnter.wav |
rlm@9 | 75 MagicCake.wav |
rlm@9 | 76 MasterBelchBase.wav |
rlm@9 | 77 MonkeyCave.wav |
rlm@9 | 78 Moonside.wav |
rlm@9 | 79 Mu.wav |
rlm@9 | 80 NewGame.wav |
rlm@9 | 81 Night.wav |
rlm@9 | 82 Onett1.wav |
rlm@9 | 83 Onett2.wav |
rlm@9 | 84 OnettBuzz1.wav |
rlm@9 | 85 OnettBuzz2.wav |
rlm@9 | 86 OnettBuzz3.wav |
rlm@9 | 87 OnettNight1.wav |
rlm@9 | 88 OnettNight2.wav |
rlm@9 | 89 OnettNight3.wav |
rlm@9 | 90 Paula.wav |
rlm@9 | 91 PeacefulRest.wav |
rlm@9 | 92 Photographer.wav |
rlm@9 | 93 PinkCloud.wav |
rlm@9 | 94 Pokey.wav |
rlm@9 | 95 PokeyIntro.wav |
rlm@9 | 96 PokeysHouse.wav |
rlm@9 | 97 PokeysHouseBuzz.wav |
rlm@9 | 98 PowerUp.wav |
rlm@9 | 99 Pray.wav |
rlm@9 | 100 Pyramid.wav |
rlm@9 | 101 Return1.wav |
rlm@9 | 102 Return2.wav |
rlm@9 | 103 RideSub.wav |
rlm@9 | 104 RideUFO.wav |
rlm@9 | 105 Robots.wav |
rlm@9 | 106 Runaway5Bus1.wav |
rlm@9 | 107 Runaway5Bus2.wav |
rlm@9 | 108 Runaway5Bus3.wav |
rlm@9 | 109 Runaway5Song1.wav |
rlm@9 | 110 Runaway5Song2.wav |
rlm@9 | 111 Sailing1.wav |
rlm@9 | 112 Sailing2.wav |
rlm@9 | 113 SaturnValley.wav |
rlm@9 | 114 SaturnValley2.wav |
rlm@9 | 115 Scaraba.wav |
rlm@9 | 116 ScarabaDesert.wav |
rlm@9 | 117 SeaOfEden.wav |
rlm@9 | 118 SnowWood.wav |
rlm@9 | 119 SnowWood2.wav |
rlm@9 | 120 SoundStone.wav |
rlm@9 | 121 SoundStone2.wav |
rlm@9 | 122 Summers.wav |
rlm@9 | 123 TendaVillage.wav |
rlm@9 | 124 Tent.wav |
rlm@9 | 125 Tessie1.wav |
rlm@9 | 126 Tessie2.wav |
rlm@9 | 127 Threed.wav |
rlm@9 | 128 Topolla.wav |
rlm@9 | 129 Twoson.wav |
rlm@9 | 130 Venus.wav |
rlm@9 | 131 Win1.wav |
rlm@9 | 132 Win2.wav |
rlm@9 | 133 Winters.wav |
rlm@9 | 134 YourSanctuary1.wav |
rlm@9 | 135 YourSanctuary2.wav |
rlm@9 | 136 Zombies.wav); |
rlm@9 | 137 |
rlm@9 | 138 |
rlm@9 | 139 |
rlm@9 | 140 $dir='./'; |
rlm@9 | 141 opendir DIR, $dir; |
rlm@9 | 142 @files=grep !/^\./, readdir(DIR); |
rlm@9 | 143 $" = "\n"; |
rlm@9 | 144 #print "@files"; |
rlm@9 | 145 $name = "AA"; |
rlm@9 | 146 $par = 0; |
rlm@9 | 147 for (@files){ |
rlm@9 | 148 |
rlm@9 | 149 if ($_=~m/\.wav$/i) { |
rlm@9 | 150 #print "$_\n"; |
rlm@9 | 151 rename "C:/spc700/$_", "C:/spc700/$www[$par]"; |
rlm@9 | 152 $name++; |
rlm@9 | 153 $par++; |
rlm@9 | 154 |
rlm@9 | 155 |
rlm@9 | 156 |
rlm@9 | 157 |
rlm@9 | 158 } |
rlm@9 | 159 |
rlm@9 | 160 |
rlm@9 | 161 |
rlm@9 | 162 } |