Thread Variable _ ? (52 answers)
Opened by bianca at 2020-12-25 10:24

bianca
 2020-01-03 13:19
#193064 #193064
User since
2009-09-13
7011 articles
BenutzerIn

user image
2021-01-02T10:53:58 haj
Der Fehler dürfte also bei Dir gar nicht auftreten und Du kannst das Modul einfach rauswerfen.

Das kann ich leider nicht bestätigen. Hier liefert Perl in stat()[9] nur Uhrzeiten, die die Sommerzeit nicht berücksichtigen, also innerhalb der Sommerzeit falsch sind.

Getestet habe ich das so:
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
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
#use Win32::UTCFileTime qw(:globally);

system 'cls';

my @files = (
    'xyz',      # vom 15.08. also mit Sommerzeit richtig ist 19:14
    'abc',      # vom 16.12. also ohne Sommerzeit richtig ist 12:42
);

schleife(\@files);

sub schleife {
    my ($files) = @_;
    foreach my $datei (@$files) {
        say "Datei '$datei'";
        my @epoch = localtime((stat($datei))[9]);
        $epoch[4] ++;
        $epoch[5] += 1900;
        say sprintf("%02d.%02d.%04d %02d:%02d:%02d",@epoch[3..5],reverse((@epoch)[0..2]))."\n";
    }
}

So kommt die obere Datei mit falschem 18:14 raus.
Wenn ich CPAN:Win32::UTCFileTime aktiviere kommt richtig 19:14 raus.
Die untere Datei kommt in beiden Fällen richtig mit 12:42 raus.

Wie kriege ich denn jetzt richtige Sommerzeiten und keine Unterstrichfehlermeldung hin?
Und wie deckt sich das, dass man CPAN:Win32::UTCFileTime eigentlich nicht mehr brauchen sollte?
10 print "Hallo"
20 goto 10

View full thread Variable _ ?