/usr/share/perl5/Locale/kruft2codes.pl is in liblocale-us-perl 2.112150-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #!/usr/bin/perl
#system 'lynx -dump http://www.usps.gov/ncsc/lookups/usps_abbreviations.htm > kruft.txt';
open P, 'kruft.txt';
while (<P>) {
if (/\w/)
{
$_ =~ s/^\s+//;
$_ =~ s/\s+$//;
if (++$line_count % 2)
{
$current_state=$_;
}
else
{
$code{$current_state}=$_;
}
}
}
open C, '>codes.dat';
foreach (sort keys %code) {
print C "$code{$_}:$_\n";
}
|