Datumproblem

Någon som vet hur jag gör för att få datumet 2002-02-20 att bli 20/Feb/2002?

Tack på förhand

my @d = localtime(time);
my @months=("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
print $d[3]."/".$months[$d[4]]."/".($d[5]+1900);

Du måste skojja med mig? Det måste väl finnas en inbyggd funktion för datumhantering av detta slag? Så som du gjort har jag redan gjort(liknande). Fungerar, men knappast en angenäm upplevelse ;-)

Inte i kärnan, men det finns garanterat ett antal moduler du kan använda, men varför? Detta är precis till punkt och pricka vad du vill ha. Jag tycker det är skönlitteratur bättre än Tolkien ;)

Jag ogillar onödig kod. Kanske därför jag arbetar främst med PHP. Ibland måste jag dock ta steget ut i verkligheten och koda Perl. :-)

Jag ogillar onödig kod.

En enradare då. Gillar du det bättre? ;)

printf "%d/%s/%d\n", (localtime)[3],("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[(localtime)[4]],(localtime)[5] + 1900;

he he