Regex ausgabe auf Array (Allgemeines zu Perl)

[thread]15334[/thread]

Regex ausgabe auf Array

Leser: 22

Articles: hide open all | hide show old branches

+10 replies
Gast piet

2010-08-01 10:54

Hallo,

ich habe eine Datei in der ich Platzhalter auslesen will. Ich weiß es gibt was fertiges, aber das passt nicht ganz bei mir.
Also....

Ich möchte aus der Textdatei (Variable $datei) alle Platzhalter herauslesen
die mit "$" beginnen und mit " " oder nicht a-z[A-Z]0-9 enden.
All diese Platzhalter sollten in einem Array aufgelistet sein.

z.B.
Mein Name ist $hans. => steht im Array "hans"
Mein $Hans ist ... => steht im Array "hans"
... $Hans} ... => steht im Array "hans"

d.h. Alle Zeichen ausser a-z[A-Z]0-9 geben das Ende der Variable (Platzhalter) aus.

Meine Kenntnisse beschränken sich auf auslesen einer Variable mit abschliessenden Leerzeichen.

Zum Schluss noch das Bonbon.(zum testen)
Kann ich einer Regex auch ein Hash übergeben das mir anhand des Variablennamen (Platzhalternamen) den Wert des Hashes in die "Datei" einträgt.

Mein anspruchvollstes Projekt.

Gruß
piet
Last edited: 2010-08-01 10:58:54 +0200 (CEST)
- +5 replies
- renee
  
  2010-08-01 11:07
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wenn man alle Zeichen "außer ..." meint, muss man bei Regulären Ausdrücken [^...] schreiben. [...] Sind Zeichenklassen und ein ^ am Anfang negiert das Ganze.
  
  Also:
  * /test[a-z]/ => erst 'test' und dann irgendein Zeichen aus der Reihe a-z
  * /test[^a-z]/ => erst 'test' und dann irgendein Zeichen außer eines aus der Reihe a-z
  
  Code (perl): (dl )
  
  1 2 3
  
  my $datei = 'Mein Name ist $hans§.'; my @platzhalter = $datei =~ /\$(.+?)[^A-Za-z0-9]/g; print join ', ', @platzhalter;
  
  Edit: Typo gefixt
  Edit2: g-Modifier noch angehängt
  Last edited: 2010-08-01 11:10:50 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - worst_case
    
    2010-08-01 11:37
    
    User since
    2007-08-18
    46 Artikel
    BenutzerIn
    
    Morgen Renee,
    
    das geht aber hier fix und funktioniert Prima.
    
    Ich habe noch ein Problem.
    Hier sollte nur $amount als Platzhalter erkannt werden.
    Ebenso wenn $ alleine steht
    
    ${sprintf("%.2f", $amount)}
    
    Hier weiß ich nicht wie ich expliziet das 2. Zeichen filtere.
    
    Gruß
    piet
    - MatthiasW
      
      2010-08-01 11:52
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Liegt wohl an dem .+?, das liest mindestens 1 Zeichen und damit die { und anschließend alle weiteren [A-Za-z0-9]. Um das zu umgehen könntest du .*? schreiben und die Ergebnisse filtern:
      
      Code (perl): (dl )
      
      my @platzhalter = grep {length} $datei =~ /\$(.*?)[^A-Za-z0-9]/g;
      
      Oder es anders schreiben (msg #140203).
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +2 replies
  - MatthiasW
    
    2010-08-01 11:37
    
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Ich persönlich würde die Regex etwas anders formulieren: /\$([A-Za-z0-9]+)/
    Allerdings liest es sich dann nicht mehr so, wie von piet beschrieben ("mit ... _nicht_ a-z[A-Z]0-9 enden")
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - renee
      
      2010-08-01 12:00
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Jepp, bin noch nicht ganz wach ;-)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- +4 replies
- renee
  
  2010-08-01 11:23
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Das mit dem Ersetzen durch Hash-Werte sieht dann so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/usr/bin/perl use strict; use warnings; my %ersetzungen = ( hans => 'Hallo', test => 'Welt', ); my $datei = 'Ein Test: $hans $test.'; my @platzhalter = $datei =~ s/(?<=\$)(.+?)(?![A-Za-z0-9])/$ersetzungen{$1}/g; print $datei;
  
  Das gibt dann Ein Test: $Hallo $Welt. aus.
  
  s/// ist der Operator für Ersetzungen. Der Teil zwischen den ersten // ist der Suchteil und der Teil zwischen den nächsten // ist der Ersetzungsteil.
  
  Jetzt sieht der Suchteil komplexer aus als in meinem vorherigen Post. Was passiert da? Der Ausdruck (?<=\$) ist ein "Lookbehind". Damit stellt man sicher, dass vor dem eigentlichen Suchausdruck ein Wert vorkommen muss. Allerdings wird dieser Teil dann im Ersetzungsteil nicht ersetzt (Erklärung dazu in dem Link unten). Das habe ich gemacht, weil Du in der Problembeschreibung geschrieben hast, dass nur "hans" in dem Array landen soll und dass soll ersetzt werden. Soll auch das "$" aus "$datei" verschwinden (also das komplette "$hans", dann muss einfach aus (?<=\$) ein \$ werden.
  
  In der zweiten Gruppierung ((.+?)) landet dann der Bezeichner des Platzhalters (hier: "hans" bzw. "test") in $1.
  
  Danach folgt ein "Negative lookahead", mit dem man festlegen kann, was auf etwas "nicht" folgen darf. Da hier das lookahead schon "negativ" ist, wird die Zeichenklasse nicht mehr negiert. Auch hier wird der lookahead nicht ersetzt, denn das Leerzeichen bzw. der Punkt in dem Beispiel soll ja nicht ersetzt werden.
  
  Mehr zu Lookahead und Lookbehind: http://www.regular-expressions.info/lookaround.htm...
  
  Übrigens ist YAPE::Regexp::Explain ein tolles Tool für Regex-Erläuterungen. Das sagt in diesem Fall:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
  
  The regular expression: (?-imsx:(?<=\$)(.+?)(?![A-Za-z0-9])) matches as follows: NODE EXPLANATION ---------------------------------------------------------------------- (?-imsx: group, but do not capture (case-sensitive) (with ^ and $ matching normally) (with . not matching \n) (matching whitespace and # normally): ---------------------------------------------------------------------- (?<= look behind to see if there is: ---------------------------------------------------------------------- \$ '$' ---------------------------------------------------------------------- ) end of look-behind ---------------------------------------------------------------------- ( group and capture to \1: ---------------------------------------------------------------------- .+? any character except \n (1 or more times (matching the least amount possible)) ---------------------------------------------------------------------- ) end of \1 ---------------------------------------------------------------------- (?! look ahead to see if there is not: ---------------------------------------------------------------------- [A-Za-z0-9] any character of: 'A' to 'Z', 'a' to 'z', '0' to '9' ---------------------------------------------------------------------- ) end of look-ahead ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +3 replies
  - worst_case
    
    2010-08-06 15:50
    User since
    2007-08-18
    46 Artikel
    BenutzerIn
    
    Hallo,
    
    ich benutze derzeit diesen Filter
    
    Code: (dl )
    
    /\$([A-Za-z0-9_]+)/g
    
    Um in meinem Template intern Variablen benutzen zu können muss ich diese unterscheiden.
    d.h. $M_variable (lese Wert aus Datenbank)
    $m_variable (interne variable im Template)
    
    Nun müsste mein Filter erweitert werden.
    -> Großbuchstabe nach $ -> lege in Array
    -> Kleinbuchstabe nach $ -> ignoriere diese Variable
    also nur der "erste" Buchstabe nach dem $ wird ausgewertet.
    
    Danke
    piet
    - +2 replies
    - worst_case
      
      2010-08-06 18:53
      
      User since
      2007-08-18
      46 Artikel
      BenutzerIn
      
      Hallo,
      
      ich habe jetzt lange probiert und bin zu diesem Ergebnis gekommen
      
      Code: (dl )
      
      my @platzhalter = $string =~ /\$([A-Z].\w+)/g;
      
      Kann jemand "drübersehen" ob ich das so richtig gemacht habe, bzw. ob der Filter fehlerhaft ist ??
      
      Gruß
      - renee
        
        2010-08-06 20:08
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Sieht soweit richtig aus. Evtl kann man den Punkt nach [A-Z] noch durch _ ersetzen, wenn in den Template-Variablen nur das _ da stehen darf. Sonst matcht es auch $A. oder $B+ oder oder oder...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/

View all threads created 2010-08-01 10:54.