[xor] / cvt.pl

#! /usr/bin/perl

foreach my $i (@ARGV) {
  my $n = $i;
  $n =~ s/.* - (.*)\.txt/$1/;
  my $o = $n;
  $o =~ tr/A-Z/a-z/;
  $o =~ tr/a-zA-Z0-9/-/c;
  open I, "$i";
  open O, ">maps/$o";
  print O "name \"$n\"\n";
  print O "data\n";
  while (<I>) {
    tr(-#12<!@oxMD |SE+)
      (-#$%<V+UCM@ |~*O);
    print O $_;
  }
  print O "end\n";
  close I; close O;
}
Commit	Line	Data
fc27aa70	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	}