Mercurial > spc_convert
comparison 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 |
comparison
equal
deleted
inserted
replaced
8:a37863126396 | 9:477c36226481 |
---|---|
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 } |