make_tld_serv.pl


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";
}