Eckige Klammern aus Verzeichnisnamen entfernen (gelöst) (Allgemeines zu Perl)

[thread]20082[/thread]

Eckige Klammern aus Verzeichnisnamen entfernen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Gast Sapperlot

2016-05-24 19:13
Habe immer wieder mit Verzeichnisnamen in der Form:

[Ein Beispiel Name]

würde da gerne die eckigen Klammern sowie die Leerzeichen entfernen, am besten natürlich alle Sonderzeichen, um die Verzeichnisse anschließend in einem Shellskript weiterverarbeiten zu können. Habe da schon mit mv, rename oder sed rumgefummelt, aber die große Erleuchtung kam mir dabei nicht. Die brauchbarste Lösung war da noch:
Code: (dl )

find -type d ! -name "\." | sed -r -e 's/[[](.*)[]]/\1/' -e 's/ /_/g'
aber dadurch hatte ich zwar den gewünschten Ouput, aber an dem Verzeichnisnamen ändert das nichts.

Dachte also, der Alleskönner Perl müsste das locker packen, aber so richtig weiter komme ich damit auch nicht.
Bin also dankbar für jeden Tip!
Last edited: 2016-05-24 19:58:34 +0200 (CEST)
- Raubtier
  
  2016-05-24 20:15
  User since
  2012-05-04
  1055 Artikel
  BenutzerIn
  Guest Sapperlot
  würde da gerne die eckigen Klammern sowie die Leerzeichen entfernen ..., um die Verzeichnisse anschließend in einem Shellskript weiterverarbeiten zu können.
  
  Der Grund ist merkwürdig. Auch in Shellscripten können problemlos Dateien mit Leer- oder Sonderzeichen verarbeitet werden.
  
  Wie wär's mit Code der Art (das say und die beiden " entfernen, wenn ok):
  
  Code (perl): (dl )
  
  for my$old(grep -d,<*>){$_=$old;s/[^a-zA-Z]/_/g;say"rename $old, $_"}
- betterworld
  
  2016-05-24 21:56
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Wenn man weiß, wie man richtig Shell programmiert [1], dann kann man auch Strings mit Leerzeichen und auch eckingen Klammern drin verarbeiten. Der Trick ist im Prinzip nur, dass um alle Dollar-Variablen und Backticks und ähnliches immer Double Quotes drum herum gesetzt werden müssen. Und zwar an so gut wie allen Stellen, wo sie auftauchen. Beispiel:
  
  Code: (dl )
  
  echo "$foo" "$bar" "`date`"
  
  Aber zu der Frage:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  # Alle eckigen Klammern entfernen $string =~ tr/[]/d; # Oder: Matchende Klammern in Paaren entfernen 1 while $string =~ s#\[([^\[\]]*)\]#$1#g;
  
  Das zweite Beispiel habe ich dazu geschrieben, weil Dein sed-Befehl so aussieht, als ob Du die Klammern paarweise entfernen möchtest. Wenn man Escaping-Schwierigkeiten befürchtet, sollte man natürlich die Klammern komplett entfernen, auch wenn sie nicht paarweise auftreten.
  
  Anmerkung:
  [1]: Richtige Shell-Programmierung gibt es nicht. Richtig würde man es machen, wenn man nicht in Shell programmiert, weil das als Programmiersprache wirklich fürchterlich ist :)
  Last edited: 2016-05-24 22:14:36 +0200 (CEST)
  Lieblingsmodule: IPC::System::Simple, Path::Class
- +4 replies
- Linuxer
  
  2016-05-24 22:27
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Mehrere find+rename machen das schon. Dabei ist zu bedenken, dass rename immer nur das erste Vorkommen des gesuchten Fixstrings ersetzt; d.h. ggfs. muss man das Kommando mehrmals aufrufen, um alle Treffer zu erwischen.
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  # Suche nach Verzeichnissen, deren Name ein unerwünschtes Zeichen enthaelt # und entferne das erste Vorkommen des Zeichens im Namen find -type d -name "*[*" -exec rename "[" "" {} + find -type d -name "*]*" -exec rename "]" "" {} + find -type d -name "* *" -exec rename " " "" {} +
  
  edit: fixed typo
  Last edited: 2016-05-24 22:31:16 +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!
  - +3 replies
  - betterworld
    
    2016-05-25 00:10
    
    User since
    2003-08-21
    2613 Artikel
    ModeratorIn
    
    Ah, jetzt wird mir erst klar, dass die eigentliche Frage darauf hinzielt, wie man die Verzeichnisse umbenennt :) Damit ist natürlich mein Codebeispiel nur teilweise aussagekräftig.
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - +2 replies
    - Gast Sapperlot
      
      2016-05-25 13:50
      
      Dein Codebeispiel war vielleicht nur teilweise aussagekräftig, aber der Tip mit den Doublequotes war Gold wert. Manchmal sind die einfachsten Lösungen die besten ;)
      So werde ich es machen.
      Da ich aber meine Perl Skills aufbessern möchte, werde ich noch ein wenig mit dem Code Schnippsel von Raubtier beschäftigen.
      
      Das Thema ist somit für mich gelöst.
      Last edited: 2016-05-25 14:05:08 +0200 (CEST)
      - betterworld
        
        2016-05-26 10:56
        
        User since
        2003-08-21
        2613 Artikel
        ModeratorIn
        
        Das freut mich -- danke für die Rückmeldung :)
        
        Siehe auch http://mywiki.wooledge.org/BashPitfalls für weitere Bash-Merkwürdigkeiten.
        Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2016-05-24 19:13.