Alle Datein aus Verzeichnis löschen, bis auf 2 Bestimmte (solved) (Allgemeines zu Perl)

[thread]17097[/thread]

Alle Datein aus Verzeichnis löschen, bis auf 2 Bestimmte [solved]

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+7 replies
donlenardo

2012-01-25 13:55

User since
2012-01-24
16 articles
BenutzerIn

Hallo,

wie der Titel bereits verrät, möchte ich aus einem Verzeichnis alle Dateien und Unterverzeichnisse löschen, bis auf 2 bestimmte Dateien mit den Namen "task.dat" und "CostFunction_sum".

Für nur eine Datei habe ich bereits eine passende Kommandozeile gefunden - nur weiß ich nicht,wie man es hinbekommt,dass er mir beide Dateien im Verzeichnis lässt:

system("ls |grep -v task.dat |xargs rm -rf");

Vielleicht könnt ihr mir ja helfen - ich bin für alle Vorschläge dankbar!

Ich möchte nur NICHT beide Dateien aus dem Verzeichnis kopieren, dann dieses löschen, dann wieder erstellen und die beiden Dateien wieder reinkopieren:

system("cp ../test/task.dat ../");
system("cp ../test/CostFunction_sum ../");
system(" rm -r ../test");
....
..
..

Vielen Dank schon mal im Voraus.

Gruß,
Markus
- +3 replies
- GwenDragon
  
  2012-01-25 14:11
  User since
  2005-01-17
  14921 articles
  Admin1
  Ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use File::Find; my @dirs = @_ or die "No dir for search\n"; find(\&findthem, @dirs); sub findthem { # falls Dateiname nicht CostFunction_sum oder task.dat am Ende if ( $File::Find::name !~ /(CostFunction_sum|\Qtask.dat\E)$/ ) { # Datei löschen unlink $File::Find::name if -f $File::Find::name; # Verzeichnis löschen wenn nicht . oder .. rmdir $File::Find::name if -d $File::Find::name and $File::Find::name !~ /^\.\.?$/; } }
  
  Aber Vorsicht, das löscht auch alles unterhalb / !
  Last edited: 2012-01-25 14:19:29 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - donlenardo
    
    2012-01-25 14:46
    
    User since
    2012-01-24
    16 articles
    BenutzerIn
    
    Leider funktioniert das anscheinend nicht.
    
    Perl gibt mir immer nur "No dir for search" aus,obwohl Dateien und Verezeichnis vorhanden sind!
    - GwenDragon
      
      2012-01-25 14:55
      
      User since
      2005-01-17
      14921 articles
      Admin1
      
      Entschuldige, das muss so heißen in Zeile 3:
      
      Code (perl): (dl )
      
      my @dirs = @ARGV or die "No dir for search\n";
      
      //EDIT: Die Version mit @_ war nicht für die Kommandozeile gedacht.
      Last edited: 2012-01-25 15:30:28 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2012-01-25 14:44
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Auf reiner Shell-Ebene gesprochen:
  
  Das Shell grep kann auch Alternativen:
  
  Code: (dl )
  
  ls -1 | grep -v "^$aa\|bb$$"
  
  Oder man schreibt eine Datei mit dem relevanten Dateinamen (einer pro Zeile) und liest diese als Pattern-Datei ein:
  
  Code: (dl )
  
  ls -1 | grep -v -f $HOME/file_excludes
  
  Erläuterung zum verwendeten ls:
  
  Code: (dl )
  
  ls -1 = list one file per line
  
  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!
- hlubenow
  
  2012-01-25 23:16
  User since
  2009-02-22
  887 articles
  BenutzerIn
  Dachte, mit
  
  Code (perl): (dl )
  
  1 2
  
  my $dir = "/test"; my @files = <$dir/*>;
  
  würde es leichter als mit dem Vorschlag von GwenDragon, stimmt aber nicht.
- donlenardo
  
  2012-01-26 10:13
  
  User since
  2012-01-24
  16 articles
  BenutzerIn
  
  Hey danke an alle. Jetzt funktioniert es!!
  
  Markus

View all threads created 2012-01-25 13:55.