sub pick2mmddyy {
  my ($day, $mo, $year) = (gmtime(($_[0]-732)*86400))[3,4,5];
  return sprintf("%02d/%02d/%02d", $mo+1, $day, $year%100);
}

print pick2mmddyy(11982), "\n";
[download]

++ on that function Thelonius. Very clean.

Perfect :) And thanks again for the help...

Steve

Yep, that's a fine function. You might even say I have an affinity for this type of transformation. (Obscure math puns.)

I don't know what kind of representation is that you mention. The customary way to represent time at the OS level, is the number of seconds elapsed since Jan 1 1970 00:00:00 (the Epoch). This is, for instance, what time() returns.

I guess you can get your conversion by using some snippet such as:

my $time = some_function_returning_the_time_you_want();
print "The interesting time was ", scalar localtime($time), "\n";
[download]

localtime() in a scalar context, will give you a nicely formatted string such as:

bash-2.05a$ perl -e 'print scalar localtime(), "\n"'
Thu Jun  5 08:48:44 2003
[download]

In an array context, it will return the components of the date stamp. Please check your friendly perldoc -f localtime for the details.

Best regards

-lem, but some call me fokat

$ perl -e 'print time()' gives 1054817016, for example. To get a string representation of that, use localtime:

$ perl -e '$timestr = localtime(time()); print $timestr'

For See also the documentation on the time() and localtime() functions. Using the localtime function in list context gives you the different time parts (seconds, minutes, hours, etc.) which you can format with printf or sprintf to get the format you want. See the documentation for examples.

Arjen

   perldoc -f time
   perldoc -f localtime
[download]

   perldoc -q time
[download]