|
Revision 767, 421 bytes
(checked in by mbr, 5 years ago)
|
updated to whois-4.6.6
|
- Property svn:eol-style set to
native
- Property svn:executable set to
*
- Property svn:keywords set to
Author Date Id Revision
|
| Line | |
|---|
| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
use strict; |
|---|
| 4 |
|
|---|
| 5 |
while (<>) { |
|---|
| 6 |
chomp; |
|---|
| 7 |
s/^\s*(.*)\s*$/$1/; |
|---|
| 8 |
s/\s* |
|---|
| 9 |
next if /^$/; |
|---|
| 10 |
die "format error: $_" unless |
|---|
| 11 |
(my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); |
|---|
| 12 |
$b =~ s/^W(?:EB)?\s+/\\x01/; |
|---|
| 13 |
$b =~ s/^M(?:SG)?\s+/\\x02/; |
|---|
| 14 |
$b = "\\x03" if $b eq 'NONE'; |
|---|
| 15 |
$b = "\\x04" if $b eq 'CRSNIC'; |
|---|
| 16 |
$b = "\\x07" if $b eq 'PIR'; |
|---|
| 17 |
$b = "\\x09" if $b eq 'NICCC'; |
|---|
| 18 |
print " \"$a\",\t\"$b\",\n"; |
|---|
| 19 |
} |
|---|
| 20 |
|
|---|
