blob: dfe51c8dbf378c37cccde01ad6035acc219c39da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl -w
use strict;
while (<>) {
chomp;
s/^\s*(.*)\s*$/$1/;
s/\s*#.*$//;
next if /^$/;
die "format error: $_" unless
(my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/);
$b =~ s/^W(?:EB)?\s+/\\001/;
$b =~ s/^M(?:SG)?\s+/\\002/;
$b = "\\003" if $b eq 'NONE';
$b = "\\004" if $b eq 'CRSNIC';
$b = "\\007" if $b eq 'PIR';
print " \"$a\",\t\"$b\",\n";
}
|