use somehting
like:
my ($mday, $mon, $year) = (localtime(time))[3..5]; # pull day,month, year only$year += 1900; # want 4 digit date $mon++; # need to add 1 to month(runs from 0 to 11) my $MyDirectory = sprintf "%04d%02d%02d", $year, $mon, $mdayThis will yyyymmdd format. Wags ;)
|
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]