~mdw
/
xor
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial checkin. Not there yet.
[xor]
/
cvt.pl
1
#! /usr/bin/perl
2
3
foreach
my
$i
(
@ARGV
) {
4
my
$n
=
$i
;
5
$n
=~
s/.* - (.*)\.txt/$1/
;
6
my
$o
=
$n
;
7
$o
=~
tr/A-Z/a-z/
;
8
$o
=~
tr/a-zA-Z0-9/-/c
;
9
open
I
,
"
$i
"
;
10
open
O
,
">maps/
$o
"
;
11
print
O
"name
\"
$n
\"\n
"
;
12
print
O
"data
\n
"
;
13
while
(<
I
>) {
14
tr
(-
#12<!@oxMD |SE+)
15
(-
#$%<V+UCM@ |~*O);
16
print
O
$_
;
17
}
18
print
O
"end
\n
"
;
19
close
I
;
close
O
;
20
}