Timestamp erstellen mit localtime(time) ? (gelöst) - #147368 (Allgemeines zu Perl)

crojay

2011-04-04 16:08

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

habe folgendes Skript um mir einen timestamp-string zu generieren. Jedoch liefert es bei mir momentan immer den Vormonat.

Hier ein Output des Skripts

Mon Apr 4 16:02:17 2011 ---- 2011_03_4__16_02_17

Ich versteh momentan nicht, weshalb bei mir der Monat 3 ausgegeben wird und Tag 04.

Weiß jemand Rat?
Danke

Code: (dl )

print localtime(time) . " ---- ". &getTimestamp . "\n";


sub getTimestamp {
   my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);  
   if ($mon < 10) { $mon = "0$mon"; }
  
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10) { $min = "0$min"; }
   if ($sec < 10) { $sec = "0$sec"; }
   $year=$year+1900;

   return $year . '_' . $mon . '_' . $mday . '__' . $hour . '_' . $min . '_' . $sec;
}