mirror of
https://github.com/rfc1036/whois.git
synced 2026-02-02 06:24:08 +00:00
21 lines
421 B
Prolog
Executable File
21 lines
421 B
Prolog
Executable File
#!/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+/\\x01/;
|
|
$b =~ s/^M(?:SG)?\s+/\\x02/;
|
|
$b = "\\x03" if $b eq 'NONE';
|
|
$b = "\\x04" if $b eq 'CRSNIC';
|
|
$b = "\\x07" if $b eq 'PIR';
|
|
$b = "\\x09" if $b eq 'NICCC';
|
|
print " \"$a\",\t\"$b\",\n";
|
|
}
|
|
|