ftp datenvergleich mit anderen ftp - #154639 (Netzwerkprogrammierung und Netzwerke mit Perl)

Gustl

2011-12-04 18:18

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo,

ist zwar schon etwas her, aber ich habe gerade etwas mit dem Skript von rosti (Danke) herumgespielt.

Jetzt ist mir aufgefallen, dass ich ein Problem mit dem auslesen des Änderungsdatem (bzw. die Änderungszeit) habe.

Folgender Code:

Code (perl): (dl )

sub traverse { 
  my $dir = shift;   
  for (rdir($dir)) {
    foreach my $entry (parse_dir($_)) {
        my ($name, $type, $size, $mtime, $mode) = @$entry;        
        if( $type eq 'f' ) {
          my $time_string = strftime "%Y-%m-%d %H:%M:%S", gmtime($mtime);
          #print "File $name has an mtime of $time_string\n";
          print ".";
          push @rfiles, $mtime." ".$dir."\/".$name." ".$time_string;
          #print $mtime;
          #print $ftp->mdtm($dir."\/".$name);
        }
        else {  
          print $dir."\/".$name."\n";
          #traverse($dir."\/".$name);
        }        
    }
  }
}

in $mtime stehen wohl die Sekunden seit 1970 drinnen.
Aber wenn ich die Zeit mit

Code: (dl )

strftime "%Y-%m-%d %H:%M:%S", gmtime($mtime);

umrechne stimmen diese Zeiten nicht, und ein Muster (wegen Sommerzeit, etc.) ist auch nicht zu erkennen.

Kann mir wer sagen warum diese Zeiten von den Zeiten von meinem FTP- Programm Filezilla abweichen?

zb:

Code: (dl )

impressum.html 
perl:       2011-01-06 23:00:00
filezilla:  2011-01-07 16:25:05

index.html 
perl:       2011-02-10 23:00:00
filezilla:  2011-01-11 15:27:53

leistungen.html 
perl:       2011-01-04 23:00:00
filezilla:  2011-01-04 21:25:32