Verständnisproblem mit der Zeit in Perl (stat/mtime) (gelöst) - #146983 (Allgemeines zu Perl)

bianca

2011-03-28 15:35

User since
2009-09-13
6993 Artikel
BenutzerIn

user image

Bin jetzt nicht sicher, ob du auch das Systemdatum für den Test zurückgesetzt hast.

Ich hab es mal so getestet:
mit aktueller Systemzeit von heute und Sommerzeit:

Code: (dl )

$VAR1 = [
          2011,
          3,
          28,
          15,
          27,
          33,
          87,
          1,
          1
        ];
Doofe Sommerzeit aktiv: ja
time: 1301318853
localtime: Mon Mar 28 15:27:33 2011
gmtime: Mon Mar 28 13:27:33 2011
stat Testdatei (25.03.2009 16:24:41 MEZ): Fri Mar 25 16:24:41 2011

Jetzt habe ich das Systemdatum auf den 25.03. zurückgesetzt, also Winterzeit:

Code: (dl )

$VAR1 = [
          2011,
          3,
          25,
          14,
          28,
          49,
          84,
          5,
          0
        ];
Doofe Sommerzeit aktiv: nein
time: 1301059729
localtime: Fri Mar 25 14:28:49 2011
gmtime: Fri Mar 25 13:28:49 2011
stat Testdatei (25.03.2009 16:24:41 MEZ): Fri Mar 25 15:24:41 2011

Das Script dazu:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use Date::Calc qw (
    Localtime
    System_Clock
);
use Data::Dumper;
use Fcntl qw (:DEFAULT :flock);

my @test = System_Clock (0);
print Dumper (\@test);
print "Doofe Sommerzeit aktiv: " . ($test[8] == 1 ? 'ja' : ($test[8] == -1 ? 'unbekannt' : 'nein')) . "\n";

print "time: " . time() . "\n";
print "localtime: " . localtime() . "\n";
print "gmtime: " . gmtime() . "\n";
print "stat Testdatei (25.03.2009 16:24:41 MEZ): " . gmtime((stat('../datei'))[9]) . "\n";

Ich denke doch, dass hier stat etwas anderes liefert für die SELBE Datei, je nach dem, ob ich mich aktuell auf einem Datum außerhalb oder innerhalb der Sommerzeit befinde.
Und genau das bereitet meinem Script Probleme.
Oder hab ich falsch getestet?

10 print "Hallo"
20 goto 10