localtime gibt mir eine stunde zuviel (gelöst) (Allgemeines zu Perl)

[thread]19498[/thread]

localtime gibt mir eine stunde zuviel [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
FunBruno

2015-02-09 13:36
User since
2015-02-09
10 Artikel
BenutzerIn
Hi Leute,

ich probier, such und scheitere schon seit Stunden.

Mein Problem:
Wenn ich localtime(0) aufrufe, bekomme ich eine Stunde zuviel raus.
Aber bei Stunde müsste doch 0 stehen???

Hier mein Testscript:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

[code] #!/usr/bin/perl use strict; use Time::Local; use CGI::Carp qw(fatalsToBrowser); my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time); $Monat = $Monat+1; $Jahrestag+=1; $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden; my $Jahr = $Jahr+1900; my @Wochentag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag"); my @Monatsname = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"); my @Monatstage = ("31","28","31","30","31","30","31","31","30","31","30","31"); print "Content-type: text/html\n\n"; print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n\n"; print "<html>\n\n<head>\n<title>test</title>\n"; print "</head>\n\n<body bgcolor=\"ffffff\">\n\n"; print "<table border =\"1\" width=\"100%\" align=\"center\" bgcolor=\"ffffff\">\n"; print "<tr><td>Stunden</td><td>Minuten</td><td>Sekunden</td><td>Monatstag</td><td>Monat</td><td>Jahr</td><td>Wochentag</td><td>Jahrestag</td><td>Sommerzeit</td></tr>\n"; ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(0); print "<tr><td>$Stunden</td><td>$Minuten</td><td>$Sekunden</td><td>$Monatstag</td><td>$Monat</td><td>$Jahr</td><td>$Wochentag</td><td>$Jahrestag</td><td>$Sommerzeit</td></tr>\n";
Last edited: 2015-02-09 13:38:57 +0100 (CET)
- +2 replies
- pq
  
  2015-02-09 13:41
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  vermutlich hast du als zeitzone CET eingestellt?
  vielleicht möchtes du eher gmtime() statt localtime() verwenden?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - FunBruno
    
    2015-02-09 14:25
    
    User since
    2015-02-09
    10 Artikel
    BenutzerIn
    
    Hi pq,
    
    danke für den Tip.
    Auf dem Server stimmen Zeit und Zone.
    Mit gmtime passt es.
    
    Danke
- GwenDragon
  
  2015-02-09 13:43
  
  User since
  2005-01-17
  14902 Artikel
  Admin1
  
  Dein Server hat wohl ein Zeitzonenproblem.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- Linuxer
  
  2015-02-09 14:18
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Unabhängig von Deinem Zeitzonenproblem:
  
  Dein Code
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
  
  enthält pro Zeile eine überflüssige Zuweisung. Im "Wahr"-Teil brauchst Du keine Zuweisung, es reicht die String-Verknüpfung. Und mit etwas mehr Mühe in der Formatierung wird das auch gleich lesbarer:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $Monat = $Monat < 10 ? "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? "0".$Sekunden : $Sekunden;
  
  Und mit einer Schleife (und mit sprintf) wird das auch kürzer:
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $value ( $Monat, $Monatstag, $Stunden, $Minuten, $Sekunden ) { $value = sprintf "%02d", $value; }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Muffi
    
    2015-02-09 14:20
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    $monat = sprintf("%02d", $monat);
    
    Nachtrag: irgendwie hab ich deinen sprintfteil völlig übersehn. Wird Zeit, dass' Wochenende wird.
    
    edit: Und da haben typisierte Sprachen einen Vorteil, die haun einen nämlich, wenn man versucht aus einem Monat einen String zu machen. Und vielleicht kommt einem dann der Gedanke, dass man Formatierungen erst zur Ausgabe macht.
    Last edited: 2015-02-09 14:37:12 +0100 (CET)
    1 + 1 = 10
  - Muffi
    
    2015-02-09 16:36
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Achja, du deiner sprintf-schleife:
    Müsst man da nicht Referenzen übergeben?
    
    Ahne, passt schon
    Last edited: 2015-02-09 16:38:59 +0100 (CET)
    1 + 1 = 10
- Muffi
  
  2015-02-09 14:18
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Und eigentlich sollte beim Aufruf von localtime grundsätzlich ein warning kommen, ob man wirklich alle vorhandenen Module ignorieren und sich das selbst antun möchte.
  
  und PS: HTML-Escapen erst bei der Ausgabe, nicht schon bei "März". Und wenn das ä falsch ankommt ist eh am Encoding was kaputt.
  1 + 1 = 10
- +2 replies
- FunBruno
  
  2015-02-09 14:30
  
  User since
  2015-02-09
  10 Artikel
  BenutzerIn
  
  Hi Leute,
  
  danke für die zusätzlichen Tipps. Werd es mir zu Herzen nehmen.
  
  Danke
  - rosti
    
    2015-02-09 14:59
    User since
    2011-03-19
    3762 Artikel
    BenutzerIn
    
    Nochn Tipp:
    
    Code (perl): (dl )
    
    use POSIX qw(strftime);
    
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit

View all threads created 2015-02-09 13:36.