Mercurial > spc_convert

annotate old/unrename.pl @ 9:477c36226481 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }