Help for this page

Select Code to Download


  1. or download this
    my %month = (
        Jan => 0,
        Feb => 1,
...
# ...

$month = $month{$month};  # Could stand to use better names
  2. or download this
    open(LOGFILE, "datafile.html") || die "Can't open file";
  3. or download this
    foreach my $log_line (<LOGFILE>)
{
     # ...
}
  4. or download this
    my $hour = param ("hour");
my $minute = param ("minute");