Sha256: ea37a976b581d100555ba86ba7285a2cab0b38e3d7585fa505d9a12c1021df52
Contents?: true
Size: 486 Bytes
Versions: 7
Compression:
Stored size: 486 Bytes
Contents
#!/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 = "\\x08" if $b eq 'AFILIAS';
$b = "\\x09" if $b eq 'NICCC';
$b = "\\x0C" if $b eq 'ARPA';
print " \"$a\",\t\"$b\",\n";
}
Version data entries
7 entries across 7 versions & 1 rubygems