my %T; # Store all TIME fields in a single hash named "T" @T{ qw(sec min hour mday mon year wday yday isdst) } = map({$_ < 10 ? '0' . $_ : ''.$_} localtime); print qq($_\t:$T{$_}\n) for sort keys %T; $T{year}+=1900; print qq($T{sec}, $T{min},$T{hour}, $T{day});
"There are only two truly infinite things. The universe and stupidity, and I'm not too sure about the universe"- Albert Einstein
In reply to Re: best way to write code
by NetWallah
in thread best way to write code
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |