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