diff options
Diffstat (limited to 'make_tld_serv.pl')
-rwxr-xr-x | make_tld_serv.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/make_tld_serv.pl b/make_tld_serv.pl index b9ad913..968494b 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -1,22 +1,23 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl +use warnings; use strict; while (<>) { chomp; - s/^\s*(.*)\s*$/$1/; - s/\s*#.*$//; + s/#.*$//; + s/^\s+//; s/\s+$//; next if /^$/; + die "format error: $_" unless (my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); + $b =~ s/^W(?:EB)?\s+/\\x01/; - $b =~ s/^M(?:SG)?\s+/\\x02/; + $b =~ s/^VERISIGN\s+/\\x04/; $b = "\\x03" if $b eq 'NONE'; - $b = "\\x04" if $b eq 'CRSNIC'; $b = "\\x07" if $b eq 'PIR'; $b = "\\x08" if $b eq 'AFILIAS'; - $b = "\\x09" if $b eq 'NICCC'; $b = "\\x0C" if $b eq 'ARPA'; - print " \"$a\",\t\"$b\",\n"; + print qq( "$a",\t"$b",\n); } |