1 files changed, 13 insertions, 0 deletions
diff --git a/make_tld_serv.pl b/make_tld_serv.pl
new file mode 100755
index 0000000..8e76ce3
--- /dev/null
+++ b/make_tld_serv.pl
@@ -0,0 +1,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";
+}
+