Help for this page

Select Code to Download


  1. or download this
    open INPUT, "$ENV{HOME}/flat_file"
   or die $!;
...
}

close INPUT;
  2. or download this
    use Storable qw(retrieve);

my $ports = retrieve("$ENV{HOME}/flat_file.dat");
  3. or download this
    #!/usr/bin/perl

...
    my $ports_by_city = retrieve("$ENV{HOME}/flat_file_by_city");
    print $ports_by_city->{$parms{c}}, "\n";
}