Help for this page

Select Code to Download


  1. or download this
    my @date;

...
    push (@date, $_);
    }
close(IN);
  2. or download this
    open(my $in, '<', "c:/perl/scripts/dates/dates.txt")
    or die "open: $!\n";
...
    push(@date, $_);
}
close($in);
  3. or download this
    open(my $in, '<', "c:/perl/scripts/dates/dates.txt")
    or die "open: $!\n";
...
chomp( my @date = <$in> );

close($in);