Mehrere "Ordner" im Pfad von rechts oder links abschneiden (gelöst) (Allgemeines zu Perl)

[thread]15902[/thread]

Mehrere "Ordner" im Pfad von rechts oder links abschneiden [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
zaja

2011-01-28 14:37
User since
2011-01-26
8 Artikel
BenutzerIn
Hallo!
Ich habe folgendes Problem:
Ich möchte mein String:
Code: (dl )

$Link = "Langer/Pfad/abhier/standarte/Struktur/Datei.txt"
mal von rechts mal von links abschneiden.
In erstem Fall will ich den String:
Code: (dl )

$s1 = "Langer/Pfad/abhier/standarte";
(z.B. 2 Ordner rauf)
und dann als :
Code: (dl )

$s2 ="standarte/Struktur/Datei.txt";
(also nur ab einem bestimmten Wort in dem Pfad)

Wie geht es? mit split kriege ich nur Name der Datei heraus..
- Linuxer
  
  2011-01-28 14:59
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Das Modul File::Spec bietet mit splitpath und splitdir schöne Routinen, mit denen man Pfade zerlegen kann.
  
  http://search.cpan.org/perldoc?File::Spec
  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!
- +12 replies
- pq
  
  2011-01-28 15:00
  User since
  2003-08-04
  12208 Artikel
  Admin1
  am einfachsten mit File::Spec:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use File::Spec; my @dirs = File::Spec->splitdir($s); my $file = pop @dirs; # dateiname herausholen $#dirs -= 2 if @dirs > 2; # array @dirs um 2 elemente (verzeichnisse) kürzen my $new = File::Spec->catfile(@dirs, $file); # neu zusammensetzen
  
  Last edited: 2011-01-28 15:03:06 +0100 (CET)
  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
  - +11 replies
  - zaja
    
    2011-01-28 15:52
    User since
    2011-01-26
    8 Artikel
    BenutzerIn
    
    Ich kann die Zeile 4 nicht so ganz nachvollziehen.. Korrigiere mich wenn ich falsch überlege..
    
    Code: (dl )
    
    $dirs -= 2 if @dirs > 2; # array @dirs um 2 elemente (verzeichnisse) kürzen
    
    meine neue Variable $dirs (String) ist ja quasi "$dirs = $dirs - 2", und das nur wenn mein Array Qdirs mehr als zwei Elemente besitzt. Da komme ich ganz durcheinander..
    
    Somit kann ich wenn es klappt ja nur die Sachen von rechts abschneiden, oder?
    
    Ich wollte dieses Modul schon vorher benutzen doch in "Perl in nutshell" stehen komischerweise unter File::Spec::Win32 nur 2 Funktionen, die mir nicht passen.. Oder kann ich die anderen z.B. von Mac auch nutzen?
    Last edited: 2011-01-28 15:57:40 +0100 (CET)
    - +6 replies
    - pq
      
      2011-01-28 15:55
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      die "variable" ist hier nicht $dirs, sondern es steht dort $#dirs.
      was ich nicht verstehe ist, warum du meinen code augenscheinlich kopiert hast, aber das # rausgefallen ist. kaputter browser?
      
      $#dirs bedeutet: letzter index des arrays @dirs. hat @dirs 5 elemente, ist $#dirs 4 (0 bis 4).
      indem man die variable setzt, kann man das array automatisch hinten abschneiden (oder auch verlängern).
      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
      - zaja
        
        2011-01-28 15:59
        
        User since
        2011-01-26
        8 Artikel
        BenutzerIn
        
        bin ich blöd, sorry.. Ich dachte, das wäre Tippfehler.. Deswegen habe ich auch extra die Zeile hingeschrieben...für mich ist nix "idiotensicher" )))
        Danke..
      - +4 replies
      - zaja
        
        2011-01-28 16:05
        
        User since
        2011-01-26
        8 Artikel
        BenutzerIn
        
        hmm.. jetzt zeigt mir die Konsole syntax error genau in dieser Zeile "near my $#dirs"
        was hab ich falsch gemacht?
        
        Linuxer
        
        2011-01-28 16:08
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Du zeigst beispielsweise keinen Code... Woher sollen wir erraten, wo Der Fehler steckt, wenn Du keinen Code zeigst, den wir untersuchen könnten.
        
        Schau Dir halt die angemeckerte Zeile und die Zeilen darüber an. Da steckt dann auch der Fehler.
        
        Last edited: 2011-01-28 16:10:36 +0100 (CET)
        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!
        
        +2 replies
        
        Gast wer
        
        2011-01-28 16:19
        
        Code (perl): (dl )
        
        $#dirs-=2
        
        nicht
        
        Code (perl): (dl )
        
        my $#dirs-=2
        
        Last edited: 2011-01-28 16:21:13 +0100 (CET)
        
        Linuxer
        
        2011-01-28 16:21
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        hm, gut erkannt.
        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
    - pq
      
      2011-01-28 16:04
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      bitte mache edits mit einem kleinen "edit" kenntlich.habe mich gerade gefragt, welche absätze du genau hinzugefügt hast.
      
      2011-01-28T14:52:33 zaja
      Somit kann ich wenn es klappt ja nur die Sachen von rechts abschneiden, oder?
      
      mit dem setzen von $#dirs ja.
      ansonsten kannst du splice verwenden. splice @dirs, 0, 2
      
      Quote
      Ich wollte dieses Modul schon vorher benutzen doch in "Perl in nutshell" stehen komischerweise unter File::Spec::Win32 nur 2 Funktionen, die mir nicht passen.. Oder kann ich die anderen z.B. von Mac auch nutzen?
      
      benutz einfach File::Spec.
      Das nutzt dann automatisch die version für dein system.
      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
      - hlubenow
        
        2011-01-28 21:32
        
        User since
        2009-02-22
        876 Artikel
        BenutzerIn
        
        Manchmal finde ich auch "File::Basename" hilfreich: File-Basename
        
        Weiß aber nicht, ob Du das gebrauchen kannst oder doch lieber File-Spec nehmen solltest.
        
        modedit Editiert von GwenDragon: Links auf Module in CPAN-Tags umgewandelt; Direktlinks können sich mal ändern
        Last edited: 2011-01-28 23:41:14 +0100 (CET)
      - +2 replies
      - zaja
        
        2011-02-01 12:57
        
        User since
        2011-01-26
        8 Artikel
        BenutzerIn
        
        Hab eure Tipps angenommen. Funktioniert super! Danke!
        
        pq
        
        2011-02-01 13:02
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich hab da mal den button hinter "Thread als gelöst markieren" angeklickt.
        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

View all threads created 2011-01-28 14:37.