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

[thread]16154[/thread]

Timestamp erstellen mit localtime(time) ? [gelöst]

Tags: perl5 localtime Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+5 replies
crojay

2011-04-04 16:08
User since
2011-03-08
81 Artikel
BenutzerIn
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 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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; }
- Taulmarill
  
  2011-04-04 16:15
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Selten war ich so versucht einfach mit "RTFM" zu antworten.... ok, ok, ich werde es mal etwas hilfreicher versuchen:
  
  Die Ausgabe von localtime ist aus internen bzw. historischen Gründen nicht intuitiv, ich empfehle dir die Funktion strftime aus dem POSIX Modul. In etwa so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use POSIX qw/strftime/; print strftime "%Y-%m-%d %H:%M:%S", localtime(time); print "\n";
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- GwenDragon
  
  2011-04-04 16:15
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  localtime liefert für die Monate 0..11, du musst also +1 dazu zählen.
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- payx
  
  2011-04-04 16:28
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4
  
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++; $year += 1900; $yday++; my $zeitstempel = sprintf("%04d-%02d-%02d_%02d:%02d:%02d_%d", $year, $mon, $mday, $hour, $min, $sec, $isdst); print $zeitstempel;
  
  HTH
  Grüße
  payx
- crojay
  
  2011-04-04 16:37
  
  User since
  2011-03-08
  81 Artikel
  BenutzerIn
  
  Danke euch.
  
  Bevor ich poste, lese ich schon und suche, jedoch habe ich es nicht gesehen bzw. verstanden!

View all threads created 2011-04-04 16:08.