Frage zu Regex (Verzeichnispfad auflösen) (gelöst) (Allgemeines zu Perl)

[thread]17940[/thread]

Frage zu Regex (Verzeichnispfad auflösen) [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
Gast PerlNoob

2012-11-29 09:18
Hallo,
Ich habe folgende regex erstellt
Code: (dl )

if ($1 =~ /\/.*?\//ig)
nun möchte ich ja mit /g das jedesmal wenn erfüllt das gespeichert wird.

Nun ist meine frage, wie kann ich das ausgeben?

$1 hat folgenden wert
Code: (dl )

/PROJ/oip/SDK/MV_20121019_M8_4.2.2/IMX6x/MV_Tools/tools/arm-gnueabi/arm-montavista-linux-gnueabi
Und ich möchte jedes Verzeichnis in einem array haben.
Das ganze soll später dafür genutzt werden um einen Baum aufzubauen.

Gruß

modedit Editiert von GwenDragon: erklärender Titel
Last edited: 2012-11-29 13:47:18 +0100 (CET)
- +8 replies
- Muffi
  
  2012-11-29 09:38
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Ich glaube das
  
  Code: (dl )
  
  .*?
  
  tut nicht das was du denkst.
  Was sollte es denn tun?
  
  [EDIT] Ach quatsch, habs kapiert.
  
  [EDIT2] Wie wärs mit:
  
  Code (perl): (dl )
  
  my @path = split(/\//, $path_str);
  
  Last edited: 2012-11-29 09:41:35 +0100 (CET)
  1 + 1 = 10
  - pq
    
    2012-11-29 09:41
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    alles bis (inklusive) zum nächsten slash matchen, würde ich sagen.
    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
  - +6 replies
  - Gast PerlNoob
    
    2012-11-29 09:50
    2012-11-29T08:38:11 Muffi
    [EDIT2] Wie wärs mit:
    
    Code (perl): (dl )
    
    my @path = split(/\//, $path_str);
    
    *DAMN* auf das Split bin ich garnicht gekommen, ist natürlich viel einfacher.
    Last edited: 2012-11-29 09:54:43 +0100 (CET)
    - +5 replies
    - pq
      
      2012-11-29 11:03
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das macht aber auch wieder was anderes. deine regex hat nur jeden zweiten teil des pfades gematcht. dachte, das wär so gewollt.
      
      vielleicht solltest du einfach das nächste mal dazuschreiben, was du als ergebnis haben willst.
      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
      - +4 replies
      - Gast PerlNoob
        
        2012-11-29 11:20
        
        2012-11-29T10:03:49 pq
        vielleicht solltest du einfach das nächste mal dazuschreiben, was du als ergebnis haben willst.
        
        Hab ich doch getan ?
        
        Und ich möchte jedes Verzeichnis in einem array haben.
        Das ganze soll später dafür genutzt werden um einen Baum aufzubauen.
        
        Jedes Verzeichnis soll in einem Array gespeichert werden um eine Baumstruktur aufzubauen.
        Last edited: 2012-11-29 11:30:17 +0100 (CET)
        
        +3 replies
        
        Gast PerlNoob
        
        2012-11-29 12:04
        
        Mit Split komme ich leider nicht auf das gewünschte ergebnis, da ich danach eine routine machen will womit jedes Element verglichen wird.
        
        Das funktioniert mit dem SPlit leider nicht so richtig, also suche ich weiterhin nach einer Regex funktion die mir jeden wert zwischen / ... / ausgibt ...
        Last edited: 2012-11-29 12:24:10 +0100 (CET)
        
        +2 replies
        
        Linuxer
        
        2012-11-29 12:26
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Was funktioniert denn nicht?
        Werde bitte mal genauer und gib uns Daten und Code, womit Du experimentierst.
        
        Code: (dl )
        
        1 2 3 4 5
        
        $ perl -wle ' $path = "/foo/bar/foobar"; @elements = split m{/}, $path; print join "\n", @elements' foo bar foobar
        
        split() funktioniert hier super.
        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 PerlNoob
        
        2012-11-30 10:51
        
        2012-11-29T11:26:36 Linuxer
        Was funktioniert denn nicht?
        Werde bitte mal genauer und gib uns Daten und Code, womit Du experimentierst.
        
        Code: (dl )
        
        1 2 3 4 5
        
        $ perl -wle ' $path = "/foo/bar/foobar"; @elements = split m{/}, $path; print join "\n", @elements' foo bar foobar
        
        split() funktioniert hier super.
        
        Sry, hab bei der Ausgabe nen Fehler gemacht. Split macht genau das was es soll und ich kann in @path auch jeden split abrufen. Danke ;)
        Last edited: 2012-11-30 11:02:41 +0100 (CET)
- +2 replies
- pq
  
  2012-11-29 09:38
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  naja, mit einer while-schleife. while ($var =~ m/.../g)
  
  allerdings ziemlich ungünstig, auf $1 eine regex loszulassen.
  ehe du dichs versiehst, hast du in der regex auch ein capture drin, das dir $1 überschreibt und in der nächsten iteration matcht gar nix mehr.
  variablen wie $1 sollten immer möglichst frühzeitig nach dem matchen in einer richtigen variable oder datenstruktur gespeichert werden.
  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
  - Gast PerlNoob
    
    2012-11-29 09:51
    2012-11-29T08:38:28 pq
    naja, mit einer while-schleife. while ($var =~ m/.../g)
    
    allerdings ziemlich ungünstig, auf $1 eine regex loszulassen.
    ehe du dichs versiehst, hast du in der regex auch ein capture drin, das dir $1 überschreibt und in der nächsten iteration matcht gar nix mehr.
    variablen wie $1 sollten immer möglichst frühzeitig nach dem matchen in einer richtigen variable oder datenstruktur gespeichert werden.
    
    Ich benutze das $1 wie folgt
    
    Code (perl): (dl )
    
    1 2
    
    if ($_ =~ /^\@(.*?)\|/){ my @path = split(/\//, $1);
    
    So sollte es doch in Ordnung sein, oder?
    Last edited: 2012-11-29 09:55:26 +0100 (CET)

View all threads created 2012-11-29 09:18.