Mercurial > spc_convert
diff 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 diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/old/unrename.pl Fri Oct 21 07:46:18 2011 -0700 1.3 @@ -0,0 +1,162 @@ 1.4 +@www = qw(AnnoyingKnock1.wav 1.5 +AnnoyingKnock2.wav 1.6 +AppleOfEnlightenment.wav 1.7 +Arcade.wav 1.8 +Battle01.wav 1.9 +Battle02.wav 1.10 +Battle03.wav 1.11 +Battle04.wav 1.12 +Battle05.wav 1.13 +Battle06.wav 1.14 +Battle07.wav 1.15 +Battle08.wav 1.16 +Battle09.wav 1.17 +Battle10.wav 1.18 +Bicycle.wav 1.19 +BossIntro.wav 1.20 +BrickRoad.wav 1.21 +Bus.wav 1.22 +Cave1.wav 1.23 +Cave2.wav 1.24 +Cave3.wav 1.25 +CaveOfThePast.wav 1.26 +ChaosTheater.wav 1.27 +CoffeeBreak.wav 1.28 +Dalaam.wav 1.29 +DalaamIntro.wav 1.30 +DeepDarkness.wav 1.31 +Defeated.wav 1.32 +Delivery.wav 1.33 +DrAndonuts.wav 1.34 +DrugStore.wav 1.35 +DungeonMan.wav 1.36 +DustyDunesDesert.wav 1.37 +EightMelodies.wav 1.38 +Ending1.wav 1.39 +Ending2.wav 1.40 +Ending3.wav 1.41 +FileSelect.wav 1.42 +FireSpring.wav 1.43 +FlyingMan.wav 1.44 +Fourside.wav 1.45 +Giygas1.wav 1.46 +Giygas2.wav 1.47 +Giygas3.wav 1.48 +Giygas4.wav 1.49 +Giygas5.wav 1.50 +GiygasDeath.wav 1.51 +GiygasIntro.wav 1.52 +GiygasPath.wav 1.53 +GiygasStatic.wav 1.54 +GrapefruitFalls.wav 1.55 +HappyHappy.wav 1.56 +HiddenTrack.wav 1.57 +Home.wav 1.58 +Hospital.wav 1.59 +Hotel1.wav 1.60 +Hotel2.wav 1.61 +Hotel3.wav 1.62 +Hotel4.wav 1.63 +HotelScaraba.wav 1.64 +House1.wav 1.65 +House2.wav 1.66 +House3.wav 1.67 +Intro1.wav 1.68 +Intro2.wav 1.69 +IntroDemo.wav 1.70 +IntroTitle.wav 1.71 +JackiesCafe.wav 1.72 +LevelUp.wav 1.73 +LostUnderworld.wav 1.74 +Magicant1.wav 1.75 +Magicant2.wav 1.76 +MagicantDepart.wav 1.77 +MagicantEnter.wav 1.78 +MagicCake.wav 1.79 +MasterBelchBase.wav 1.80 +MonkeyCave.wav 1.81 +Moonside.wav 1.82 +Mu.wav 1.83 +NewGame.wav 1.84 +Night.wav 1.85 +Onett1.wav 1.86 +Onett2.wav 1.87 +OnettBuzz1.wav 1.88 +OnettBuzz2.wav 1.89 +OnettBuzz3.wav 1.90 +OnettNight1.wav 1.91 +OnettNight2.wav 1.92 +OnettNight3.wav 1.93 +Paula.wav 1.94 +PeacefulRest.wav 1.95 +Photographer.wav 1.96 +PinkCloud.wav 1.97 +Pokey.wav 1.98 +PokeyIntro.wav 1.99 +PokeysHouse.wav 1.100 +PokeysHouseBuzz.wav 1.101 +PowerUp.wav 1.102 +Pray.wav 1.103 +Pyramid.wav 1.104 +Return1.wav 1.105 +Return2.wav 1.106 +RideSub.wav 1.107 +RideUFO.wav 1.108 +Robots.wav 1.109 +Runaway5Bus1.wav 1.110 +Runaway5Bus2.wav 1.111 +Runaway5Bus3.wav 1.112 +Runaway5Song1.wav 1.113 +Runaway5Song2.wav 1.114 +Sailing1.wav 1.115 +Sailing2.wav 1.116 +SaturnValley.wav 1.117 +SaturnValley2.wav 1.118 +Scaraba.wav 1.119 +ScarabaDesert.wav 1.120 +SeaOfEden.wav 1.121 +SnowWood.wav 1.122 +SnowWood2.wav 1.123 +SoundStone.wav 1.124 +SoundStone2.wav 1.125 +Summers.wav 1.126 +TendaVillage.wav 1.127 +Tent.wav 1.128 +Tessie1.wav 1.129 +Tessie2.wav 1.130 +Threed.wav 1.131 +Topolla.wav 1.132 +Twoson.wav 1.133 +Venus.wav 1.134 +Win1.wav 1.135 +Win2.wav 1.136 +Winters.wav 1.137 +YourSanctuary1.wav 1.138 +YourSanctuary2.wav 1.139 +Zombies.wav); 1.140 + 1.141 + 1.142 + 1.143 +$dir='./'; 1.144 +opendir DIR, $dir; 1.145 +@files=grep !/^\./, readdir(DIR); 1.146 +$" = "\n"; 1.147 +#print "@files"; 1.148 +$name = "AA"; 1.149 +$par = 0; 1.150 +for (@files){ 1.151 + 1.152 + if ($_=~m/\.wav$/i) { 1.153 + #print "$_\n"; 1.154 + rename "C:/spc700/$_", "C:/spc700/$www[$par]"; 1.155 + $name++; 1.156 + $par++; 1.157 + 1.158 + 1.159 + 1.160 + 1.161 + } 1.162 + 1.163 + 1.164 + 1.165 +} 1.166 \ No newline at end of file