Obtain time with a specific format

[25230]

Hello,

I work with perl 5.6.1 on Windows 2000 plateforme

Is it possible to obtain time with the following format ??

2002.155.20:52

with :
2002 : year with century, as decimal number
155 : day of year as decimal number (001 - 366)
20 : hour in 24-hour format (00 - 23)
52 : minute as decimal number (00 - 59)

The more difficult thing for me is to obtain the day of year as decimal number (001 - 366)
(it's easy to obtain the other parameters with time or localtime function ...)

Thanks a lot for your answer.

 

[sleipnir214]

One of the values returned from the localtime function is the day of the year. ______________________________________________________________________
Perfection in engineering does not happen when there is nothing more to add.
Rather it happens when there is nothing more to take away.

 

[rnorton]

@list = localtime;
print $list[5]+1900 . ".$list[7].$list[2]:$list[1]\n";