update: s/time/localtime/

I did quickly try that and it complained that strftime was not defined (or something like that). I'll try it again though, maybe I did something wrong.

Well, it could be unimplemented on win32, but just to make sure, here is some code that works on linux:

#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);

print strftime("%m/%d/%y %H:%M:%S",localtime);
__END__
08/17/04 00:40:03
[download]

"What should it profit a man, if he should win a flame war, yet lose his cool?"

POSIX::strftime should do the job on just about any platform.

#!/usr/bin/perl
use strict;
use warnings;
use POSIX 'strftime';

my $start = strftime '%m/%d/%y %H:%M:%S', localtime;

print "$start\n";
[download]

#!/Perl/bin/perl

use strict;
use warnings;

my @time = (localtime);

my $formatted_time = ($time[4] + 1)."/".$time[3]."/".($time[5]+1900)."
+ ".$time[2].":".$time[1].":".$time[0];

print $formatted_time;
[download]

A word of caution: those won't necessarily give you mm/dd/yyyy. You'll need to use sprintf or printf to make sure you get 2 digits in the month and day. Similar considerations for the time portion:

my $formatted_time =
    sprintf "%02d/%02d/%04d %02d:%02d:%02d",
        $time[4] + 1, $time[3], $time[5] + 1900,
        $time[2], $time[1], $time[0];
[download]

excellent point. I need to brush up on my use of sprintf

---

Grygonos

Before you even think of doing this, check whether Date::Manip's license allows it.

Cutting and pasting code into yours brings up copyright issues. A good rule of thumb before doing something like this is to ask yourself, If slashdot got proof that Microsoft did X, would people be baying for blood? If the answer is "Yes!", then you probably should think twice.

By that token, you may never dare do anything in the first place… ;-)

Makeshifts last the longest.