Problem mit Perl Script, welches alte Backupverzeichnisse löschen soll (gelöst) (Allgemeines zu Perl)

[thread]18547[/thread]

Problem mit Perl Script, welches alte Backupverzeichnisse löschen soll [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
Gast Dominik

2013-08-29 15:34
Hallo Leute,

vielen Dank schonmal im Voraus für eure Hilfe bei meinem Problem.

Mein Problem ist folgendes. Ich habe eine Backup-Software auf Basis von Perl laufen, welche täglich ein Backup in Form von 3 Zip Dateien, welche in meinem angegebenen Backup Ordner mit dem Datum von heute als Name erstellt wird.

Nun möchte ich, dass alle Backup Ordner, welche Backups älter als 7 Tage enthalten, aus meinem Backup Ordner rausgelöscht werden. Wichtig zu erwähnen wäre noch, dass das Backup ursprünglich auf einem Linux Server erstellt wird und dann auf einen FTP hochgeladen wird.
Der Backup Ordner, in welchem die jeweils 3 Zip Dateien wiederrum in Ordnern mit dem jeweiligen Datum als Name gespeichert ist, ist also auf einem FTP Server, wobei das Script von dem Linux Server aus ausgeführt wird.

Ich habe bereits einige Ansätze verfolgt, bin jedoch immer wieder gescheitert.
Zuletzt hatte ich den Ansatz, einfach zu dem ausgelesenen Dateidatum in Sekunden die Sekunden von 7 Tagen drauf zu rechnen und anschließend zu vergleichen, ob das heutige Datum größer oder gleich dem ausgelesenen Datum ist. Sofern das der Fall ist, soll der betroffene Ordner gelöscht werden.

Dazu bin ich bislang bei folgendem "Script-Versuch" angelangt.
Code: (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 32 33 34 35

use strict; use Net::FTP; my $host = "*********"; my $username = "********"; my $password = "********"; my $directory = "/var/backup/"; my $ftp = Net::FTP->new($host, Debug => 1); if(defined($ftp)){ $ftp->login($username, $password); $ftp->binary(); $ftp->cwd($directory); my $zeit = time(); opendir DIR, $directory or die $!; foreach( my @entry = readdir DIR ){ if( ((stat(@entry))[9]+604800 <= $zeit) ){ $ftp->rmdir(@entry, RECURSE); } } closedir DIR; } $ftp->quit();
Die erste Zeile für Perl, sprich "#!/usr/bin/perl -w" habe ich hier der Lesbarkeit halber ausgelassen.

Als Fehler erhalte ich beim ausführen des Perl Scripts folgende Meldung:

"Argument "2013-07-26" isn't numeric in addition (+) at ./test_date.pl line 29.
usage: $ftp->rmdir( DIR [, RECURSE ] ) at ./test_date.pl line 29
root@*****:/Pfad zum Backup Ordner/auf Linux Maschine/# ./test_date.pl
Bareword "RECURSE" not allowed while "strict subs" in use at ./test_date.pl line 30.
Execution of ./test_date.pl aborted due to compilation errors."

Wer kann mir helfen? Wo liegt mein Problem bei dem Script?

Schöne Grüße

Dominik
Last edited: 2013-08-29 15:52:41 +0200 (CEST)
- Linuxer
  
  2013-08-29 16:23
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Ein seltsames Konstrukt verwendest Du da:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  foreach( my @entry = readdir DIR ){ if( ((stat(@entry))[9]+604800 <= $zeit) ){ $ftp->rmdir(@entry, RECURSE); } }
  
  readdir steht hier im Listenkontext und liest daher ALLE Elemente aus.
  foreach iteriert über alle Elemente und pro Durchlauf verwendest Du immer noch den Array und damit alle Elemente... Du übergibst also alle gelesenen Elemente an $ftp->rmdir()...
  
  Eine kleines Beispiel zur Verdeutlichung:
  
  Code: (dl )
  
  1 2 3 4
  
  $ perl -wE 'for ( my @aa = ( 1,2,3 ) ) { say "@aa"; }' 1 2 3 1 2 3 1 2 3
  
  Besser wäre schon mal:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  # Lese immer nur einen Eintrag while ( my $entry = readdir DIR ) { # . und .. sind zu ignorieren next if $entry =~ m{^\.\.?$}; if ( (stat($entry))[9]+604800 <= $zeit ) { # remove $entry and recurse into subdirectories $ftp->rmdir($entry, 1); } }
  
  Nachtrag:
  
  aus Net::FTP:
  
  perldoc Net::FTP
  rmdir ( DIR [, RECURSE ])
  
  Remove the directory with the name DIR. If RECURSE is true then rmdir will attempt to delete everything inside the directory.
  
  RECURSE sehe ich hier als Platzhalter und nicht als echt anzugebenes Stichwort. Wenn der Wert an der Stelle wahr ist, dann wird eben versucht, die Inhalte des Verzeichnisses auch zu löschen. Dementsprechend habe ich mein Code-Beispiel angepasst.
  Last edited: 2013-08-29 16:37:36 +0200 (CEST)
  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!
- +7 replies
- GwenDragon
  
  2013-08-29 16:26
  User since
  2005-01-17
  14748 Artikel
  Admin1
  In @entry stehen bestimmt mehre Einträge.
  
  Ich tippe darauf, dass du statt
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  foreach( my @entry = readdir DIR ){ if( ((stat(@entry))[9]+604800 <= $zeit) ){ $ftp->rmdir(@entry, RECURSE); } }
  
  dies
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  while( my $entry = readdir DIR ){ if( ((stat($entry))[9]+604800 <= $zeit) ){ $ftp->rmdir($entry, RECURSE); } }
  
  wolltest.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Gast Dominik
    
    2013-08-30 08:53
    Hallo Ihr beiden,
    
    vielen Dank schonmal für eure Hilfe.
    
    Nur das Problem ist, Linuxer, er löscht nun alle vorhandenen Backups, da er, so wie es mir scheint, den Datumsvergleich nicht wirklich hinbekommt.
    Das finde ich aber merkwürdig, da ja sowohl
    
    Code: (dl )
    
    (stat($entry))[9]
    
    als auch
    
    Code: (dl )
    
    time();
    
    die vergangenen Sekunden seit der Epoche anzeigen sollten.
    
    Hast du noch eine Idee, woran es liegen könnte?
    
    Vielen Dank im voraus.
    
    Mit freundlichen Grüßen
    
    P.S. Das ich so ein seltsames Konstrukt verwendet habe mag daran liegen, dass ich vorher noch nie was mit Perl am Hut hatte :-D Ich entschuldige mich für die Verstümmelung
    Last edited: 2013-08-30 09:09:00 +0200 (CEST)
    - +5 replies
    - Linuxer
      
      2013-08-30 11:16
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      So ist das schwer zu sagen...
      
      Mach doch mal "manuelles" Debug und kontrollier die Werte, die ermittelt und verwendet werden; z.B.:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      # Lese immer nur einen Eintrag while ( my $entry = readdir DIR ) { # . und .. sind zu ignorieren next if $entry =~ m{^\.\.?$}; my $filetime = ( stat $entry )[9]; my $checktime = $filetime + 604800; # Debug Output print <<"DEBUG"; Zeit (System): $zeit Zeit (Datei): $checktime ( $filetime + 604800 ) Dateiname: $entry DEBUG # raus weil Debugging # if ( (stat($entry))[9]+604800 <= $zeit ) { # # remove $entry and recurse into subdirectories # $ftp->rmdir($entry, 1); # } }
      
      Damit solltest Du die aktuelle Zeit und die Zeiten der Dateien und der Berechnung sehen können...
      Vielleicht gibt das Hinweise auf die Fehlerquelle...
      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!
      - +4 replies
      - Gast Dominik
        
        2013-08-30 14:31
        
        Vielen Dank.
        
        Die Ursache der Fehlerquelle scheint zu sein, dass er das Datum falsch ausliest oder jedenfalls einen Fehler beim Datum auslesen geschieht.
        Außerdem hat er die Ordner mehr als nur einmal eingelesen. Schau mal selbst.
        
        more (11.4kb)
        
        So wie es für mich aussieht, übernimmt er einfach nur die vorgegebene Zahl 604800 aus dem Code Stück
        
        Code: (dl )
        
        1 2
        
        my $filetime = ( stat $entry )[9]; my $checktime = $filetime + 604800;
        
        Vielen Dank für deine Hilfe!
        
        Mit freundlichen Grüßen
        
        Dominik
        Last edited: 2013-08-30 14:45:57 +0200 (CEST)
        
        +3 replies
        
        pq
        
        2013-08-30 14:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn du dich nicht in dem verzeichnis $directory befindest, musst du stat "$directory/$entry" sagen, da in $entry nur der dateiname ohne pfad steht.
        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
        
        +2 replies
        
        Linuxer
        
        2013-08-30 15:09
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        stimmt, guter Punkt. Hab ich übersehen ;)
        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!
        
        Gast Dominik
        
        2013-08-30 15:53
        
        Vielen vielen Dank für eure Hilfe!
        
        Nun funzt alles so wie es soll. Was hätte ich nur ohne euch gemacht.
        
        Großes Lob und ein schönes Wochenende wünsche ich euch beiden noch. :)
        Last edited: 2013-08-30 16:09:29 +0200 (CEST)

View all threads created 2013-08-29 15:34.