Sha256: 077b438e2882a2ab6b648417f6b72754539b7feda8eb519e9fb2330254907446
Contents?: true
Size: 429 Bytes
Versions: 25
Compression:
Stored size: 429 Bytes
Contents
#!/usr/bin/perl
use warnings;
use strict;
while (<>) {
chomp;
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/^VERISIGN\s+/\\x04/;
$b = "\\x03" if $b eq 'NONE';
$b = "\\x07" if $b eq 'PIR';
$b = "\\x08" if $b eq 'AFILIAS';
$b = "\\x0C" if $b eq 'ARPA';
print qq( "$a",\t"$b",\n);
}
Version data entries
25 entries across 25 versions & 1 rubygems