Net::FTP - datei-alter ermitteln (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]18259[/thread]

Net::FTP - datei-alter ermitteln [gelöst]

Tags: perl5 ftp Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
chmod777

2013-04-08 08:06

User since
2009-09-14
82 Artikel
BenutzerIn

Hi!

ich sollte per FTP das Datum eines Files ermitteln, und es - ebenfalls per FTP - löschen, wenn es älter als 6 Tage ist.

kann mir jmd die entscheidenden Tipps geben ;-)

greets
- rosti
  
  2013-04-08 08:32
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Vor einiger Zeit habe ich hier einmal ein Script gepostet, was remote den Dateibaum traversiert. Da wird auch das Datum von Dateien ermittelt.
  
  --Rosti
- +3 replies
- bianca
  
  2013-04-08 11:12
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  $timewert = $ftp->mdtm("$dir/$file")
  Aber im BINMODE!
  Dann hast du den Timestamp den du z.B. mit Date::Calc::Localtime in Zeit und Datum darstellen kannst.
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - GwenDragon
    
    2013-04-08 11:25
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    MDTM können viele FTP-Server. Aber nicht alle! http://tools.ietf.org/html/rfc3659#page-8
    Allerdings können Client- und Serverzeit nicht synchron sein.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2013-04-08 12:00
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Jup, korrekt: Verständnisproblem mit der Zeit in Perl (stat/mtime)
      
      Edit: Wie kann ich den Teilbaum /bat/poard/thread/15995/145877 portabel verlinken?
      10 print "Hallo"
      20 goto 10
- chmod777
  
  2013-04-08 17:30
  User since
  2009-09-14
  82 Artikel
  BenutzerIn
  danke! ich hab das mit File::Listing gelöst. Hier auszugsweise:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  use File::Listing qw(parse_dir); my $ls = $ftp->dir(); foreach my $remotefile (parse_dir($ls)) { my ($name, $type, $size, $mtime, $mode ) = @$remotefile; ... }
  
  jetzt hab ich die unix-zeit des files in $mtime und berechne die differnz zu "time"
  
  modedit Editiert von GwenDragon: Module bitte mit CPAN-Link, dann können andere sofort dort nachsehen
  Last edited: 2013-04-08 17:34:40 +0200 (CEST)

View all threads created 2013-04-08 08:06.