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