blob: 8e76ce366b956cf071aa6d962ca27a9d9f73cede (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/perl -w
use strict;
while (<>) {
chomp;
s/^\s*(.*)\s*$/$1/;
s/\s*#.*$//;
next if /^$/;
die "format error: $_" unless (/^([\w\d\.-]+)\s+([\w\d\.-]+)$/);
print " \"$1\",\t\"$2\",\n";
}
|