Mercurial > spc_convert

     1 @www = qw(AnnoyingKnock1.wav

     2 AnnoyingKnock2.wav

     3 AppleOfEnlightenment.wav

     4 Arcade.wav

     5 Battle01.wav

     6 Battle02.wav

     7 Battle03.wav

     8 Battle04.wav

     9 Battle05.wav

    10 Battle06.wav

    11 Battle07.wav

    12 Battle08.wav

    13 Battle09.wav

    14 Battle10.wav

    15 Bicycle.wav

    16 BossIntro.wav

    17 BrickRoad.wav

    18 Bus.wav

    19 Cave1.wav

    20 Cave2.wav

    21 Cave3.wav

    22 CaveOfThePast.wav

    23 ChaosTheater.wav

    24 CoffeeBreak.wav

    25 Dalaam.wav

    26 DalaamIntro.wav

    27 DeepDarkness.wav

    28 Defeated.wav

    29 Delivery.wav

    30 DrAndonuts.wav

    31 DrugStore.wav

    32 DungeonMan.wav

    33 DustyDunesDesert.wav

    34 EightMelodies.wav

    35 Ending1.wav

    36 Ending2.wav

    37 Ending3.wav

    38 FileSelect.wav

    39 FireSpring.wav

    40 FlyingMan.wav

    41 Fourside.wav

    42 Giygas1.wav

    43 Giygas2.wav

    44 Giygas3.wav

    45 Giygas4.wav

    46 Giygas5.wav

    47 GiygasDeath.wav

    48 GiygasIntro.wav

    49 GiygasPath.wav

    50 GiygasStatic.wav

    51 GrapefruitFalls.wav

    52 HappyHappy.wav

    53 HiddenTrack.wav

    54 Home.wav

    55 Hospital.wav

    56 Hotel1.wav

    57 Hotel2.wav

    58 Hotel3.wav

    59 Hotel4.wav

    60 HotelScaraba.wav

    61 House1.wav

    62 House2.wav

    63 House3.wav

    64 Intro1.wav

    65 Intro2.wav

    66 IntroDemo.wav

    67 IntroTitle.wav

    68 JackiesCafe.wav

    69 LevelUp.wav

    70 LostUnderworld.wav

    71 Magicant1.wav

    72 Magicant2.wav

    73 MagicantDepart.wav

    74 MagicantEnter.wav

    75 MagicCake.wav

    76 MasterBelchBase.wav

    77 MonkeyCave.wav

    78 Moonside.wav

    79 Mu.wav

    80 NewGame.wav

    81 Night.wav

    82 Onett1.wav

    83 Onett2.wav

    84 OnettBuzz1.wav

    85 OnettBuzz2.wav

    86 OnettBuzz3.wav

    87 OnettNight1.wav

    88 OnettNight2.wav

    89 OnettNight3.wav

    90 Paula.wav

    91 PeacefulRest.wav

    92 Photographer.wav

    93 PinkCloud.wav

    94 Pokey.wav

    95 PokeyIntro.wav

    96 PokeysHouse.wav

    97 PokeysHouseBuzz.wav

    98 PowerUp.wav

    99 Pray.wav

   100 Pyramid.wav

   101 Return1.wav

   102 Return2.wav

   103 RideSub.wav

   104 RideUFO.wav

   105 Robots.wav

   106 Runaway5Bus1.wav

   107 Runaway5Bus2.wav

   108 Runaway5Bus3.wav

   109 Runaway5Song1.wav

   110 Runaway5Song2.wav

   111 Sailing1.wav

   112 Sailing2.wav

   113 SaturnValley.wav

   114 SaturnValley2.wav

   115 Scaraba.wav

   116 ScarabaDesert.wav

   117 SeaOfEden.wav

   118 SnowWood.wav

   119 SnowWood2.wav

   120 SoundStone.wav

   121 SoundStone2.wav

   122 Summers.wav

   123 TendaVillage.wav

   124 Tent.wav

   125 Tessie1.wav

   126 Tessie2.wav

   127 Threed.wav

   128 Topolla.wav

   129 Twoson.wav

   130 Venus.wav

   131 Win1.wav

   132 Win2.wav

   133 Winters.wav

   134 YourSanctuary1.wav

   135 YourSanctuary2.wav

   136 Zombies.wav);

   137 

   138 

   139 

   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){

   148 	

   149 	if ($_=~m/\.wav$/i) {

   150         #print "$_\n";

   151 		rename "C:/spc700/$_", "C:/spc700/$www[$par]";

   152 		$name++;

   153 		$par++;

   154 		

   155 		

   156         

   157 	

   158 		}

   159 		

   160 		

   161 		

   162 }
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 21 Oct 2011 07:46:18 -0700
parents
children