Help for this page

Select Code to Download


  1. or download this
    my @countries = (
                 'Algeria',
                 'Argentina',
                 'Zaire',
                 );
  2. or download this
    my %HoH;
open INFILE, '< /path/to/datafile.txt' or die $!;
  3. or download this
    while (<INFILE>) {
    ( my $quarter, $_) = split ':';
    @{$HoH{$quarter}}{@countries} = split " "; # repaired typo, ++petr
+al
}
  4. or download this
    close INFILE or die $!;