What is $dow in the line from Alpaca, p77:
my ($sec, $min, $hour, $day, $month, $year, $dow) = localtime;
Curious, I wrote
#!/usr/bin/perl -w
use strict;
use Time::Local;
use File::Find;
my ($sec, $min, $hour, $day, $month, $year, $dow) = localtime;
print "Day $day Month ", $month + 1, " Year ", $year + 1900, "\n";
print "Dow $dow\n";
print localtime, "\n\n";
my @numbers = grep (//,localtime);
for (@numbers) {
print $_, "\n";
}
and found there are actually three numbers following the number for the
year. The man page for Time::Local makes no mention of these.
Tom George
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
