Any PERL programmers ?

[Lazarus]

Guys,

trying to do something very simple with PERL, but Im no perl programmer.

Other languages are NOT an option.

I have calculated the date/time :

($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time) ; 
my $RealMonth = $Month + 1 ; # Months of the year are not zero-based 
if($RealMonth < 10) 
{ 
$RealMonth = "0" . $RealMonth ;
}
if($Day < 10) 
{ 
$Day = "0" . $Day ; # add a leading zero to one-digit days 
} 
$Fixed_Year = $Year + 1900; 
$Year += 1900 ;

which results in the value (example) 20050517112345

I want to be able to format this to something like :

2005/05/14-11:23:45

that bit is easy using

printf("%04d/%02d/%02d%02d:%02d:%02d", $Year, $RealMonth, $Day, $Hour, $Minute, $Second)

but what I REALLY want to do is set a variable to the formatted value for the date

i.e. $today="formatted date and time"

any clues?

 

[BinGOs]

Use the Date::Format module instead of all that mucking about.

http://search.cpan.org/~gbarr/TimeDate-1.16/lib/Date/Format.pm

Its part of the TimeDate - http://search.cpan.org/~gbarr/TimeDate-1.16/

 

[Lazarus]

with the help of my newly acquired, learned friend, i got it working.

Many thanks BinGOs