remove_tree CHILD_DIR löscht PARENT_DIR (gelöst) (Allgemeines zu Perl)

[thread]16907[/thread]

remove_tree CHILD_DIR löscht PARENT_DIR [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
Gast Andreas

2011-11-11 15:37
Hallo,
mir war ein folgenschwerer Fehler unterlaufen. Ich wollte mit "remove_tree" alle Ordner in einem Verzeichnis löschen, deren Name nicht in einem Hash definiert waren. Das Ergebnis war, das alles im Parent-Odner, welcher das Root-Verzeichnis des Webservers war, gelöscht wurde. OK, die Zugriffsrechte hätten das verhindern sollen, es ist aber nunmal passiert. Zukünftig werde ich die Zugriffsrechte besser kontrollieren und remove_tree nur eindeutig definierte absolute Pfade übergeben, aber kann mir jemand erklären, was hier genau schief gelaufen ist?

Hat remove_tree den "../"-Ordner gelöscht oder ist Perl ins "../"-Verzeichnis gewechselt, nachdem der relative Pfad "./" gelöscht wurde? Oder was anderes?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

use File::Path qw(remove_tree); chdir("$MEDIA_DIR"); # absoluter Pfad opendir(DIR, ".") || die $!; @entries = readdir(DIR); closedir(DIR); foreach (@entries) { # Hier habe ich die "."-Ordner "vergessen" remove_tree("$_") unless defined $media{"_$_"}; }
Last edited: 2011-11-11 15:46:34 +0100 (CET)
- GwenDragon
  
  2011-11-11 15:51
  User since
  2005-01-17
  14785 Artikel
  Admin1
  Na ja, du liest mit
  
  Code (perl): (dl )
  
  @entries = readdir(DIR);
  
  sowohl . als auch .. ein.
  Dann sagts du:
  
  Code (perl): (dl )
  
  1 2 3
  
  foreach (@entries) { remove_tree("$_") unless defined $media{"_$_"}; }
  
  Das bedeutet auch: lösche den Baum .. , wenn nicht der Wert im Hash definiert ist.
  Schließlich ist der ja zu Anfang nicht im Hash drin!
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- GwenDragon
  
  2011-11-11 15:55
  
  User since
  2005-01-17
  14785 Artikel
  Admin1
  
  Ein Blick in die Doku von File::Path:
  
  Quote
  remove_tree( $dir1, $dir2, ...., \%opts )
  
  (...)
  
  The following keys are recognised in the option hash:keep_root => $bool
  
  When set to a true value, will cause all files and subdirectories to be removed, except the initially specified directories. This comes in handy when cleaning out an application's scratch directory.
  remove_tree( '/tmp', {keep_root => 1} );
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - GeorgD
    
    2011-11-11 16:45
    User since
    2011-11-11
    4 Artikel
    BenutzerIn
    
    Ich habe mich mal unter einem Künstlernamen registriert. Andreas war schon vergeben. Komisch!
    
    Quote
    remove_tree( '/tmp', {keep_root => 1} );
    
    Code (perl): (dl )
    
    1 2
    
    foreach (@entries) {} remove_tree('/root/media', {keep_root => 1});
    
    Das schließt "." (media) zwar aus, aber schießt es auch ".." (root) aus?
    Last edited: 2011-11-11 16:49:18 +0100 (CET)
    - +5 replies
    - GeorgD
      
      2011-11-11 16:53
      
      User since
      2011-11-11
      4 Artikel
      BenutzerIn
      
      Naja, ".." wird wohl nicht angetastet. Das passiert ja nur, wenn man explizit ".." übergibt, so wie ich es getan habe.
      - +4 replies
      - GwenDragon
        
        2011-11-11 16:56
        
        User since
        2005-01-17
        14785 Artikel
        Admin1
        
        Das wär ja noch schöner, wenn das Programm automatisch bis / hochkrabbelt und dann alles löscht. ;)
        Aber wenn du .. oder / angibst, dann weist du was du tust, du bist Programmierer.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        GeorgD
        
        2011-11-11 17:20
        
        User since
        2011-11-11
        4 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        remove_tree('/');
        
        … könnte unter Umständen etwas unangenehme Folgen haben.
        Last edited: 2011-11-11 17:21:46 +0100 (CET)
        
        +2 replies
        
        GwenDragon
        
        2011-11-11 17:34
        
        User since
        2005-01-17
        14785 Artikel
        Admin1
        
        Ach nee. Das ist ja auch so lustig wie manche rm -fr / oder rm *.* eingäben.
        
        Wie gesagt, du bist Programmierer. Schließlich kannst du alles machen, wenn du Administrator/root bist - bis zum Ruin deines Systems.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GeorgD
        
        2011-11-11 18:02
        
        User since
        2011-11-11
        4 Artikel
        BenutzerIn
        
        Es wird der Tag kommen, an dem ich es mal testen werde.

View all threads created 2011-11-11 15:37.