Help for this page

Select Code to Download


  1. or download this
    dpavlin@klin:~$ ls -alh /data/isi/full.txt
-rw-r--r-- 1 dpavlin dpavlin 546M 2009-10-05 14:15 /data/isi/full.txt
...
GA T5180
UT ISI:A1974T518000003
ER
  2. or download this
    # $rec - input record
# $out - generated data
...
        $country =~ s{^\w\w$}{USA};
        $out->{'C1_country+'}->{ uc $country }++;
}
  3. or download this
    $out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };