cidhash.pl

   1 #!/usr/bin/perl
   2
   3 use Text::CSV_XS;
   4 use Locale::Country;
   5
   6 $csv = new Text::CSV_XS;
   7
   8 while (<>) {
   9   my $status = $csv->parse($_) or die "can't parse: ".$csv->error_input."\n";
  10   my($cid, $name) = $csv->fields();
  11
  12   print "  '".country2code($name). "' => ", $cid. ",\n";
  13 }