Regulärer Ausdruck String kürzen (gelöst) (Allgemeines zu Perl)

[thread]15575[/thread]

Regulärer Ausdruck String kürzen [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+10 replies
wizard

2010-10-27 10:19
User since
2010-10-27
3 Artikel
BenutzerIn
Hallo Leute,
um es vorweg zu nehmen, ich bin blutiger Anfänger und verzweifle gerade vollkommen an den regulären Ausdrücken. Daher hoffe ich, dass mir jemand helfen kann.

Ich habe einen String der immer in folgender Form auftaucht:
text1_text2_text3_text4_text5

text2 ist für mich der relevante Teil für die Abfrage, der hier mal als Beispiel immer "_aktuell_" ist.
Code (perl): (dl )

1 2 3 4 5

if ($string1 =~ /_aktuell_/) { $string2 = 'text1_text2_text3'; } else { $string2 = $string1; }
Wenn dieses _aktuell_ auftaucht, möchte ich den String auf die ersten 3 Textabschnitte verkürzen.
Ich habe schon versucht, nach dem 3. Unterstrich zu suchen und ab da abzuschneiden, aber irgendwie landet alles wieder im Müll. Auch mit Split hatte ich es kurz versucht, aber ich möchte danach nicht erst alle Teile wieder zusammensetzen.
Wäre schön wenn jemand mir mit einem Ansatz oder Code helfen könnte.
Last edited: 2010-10-27 10:25:52 +0200 (CEST)
- +8 replies
- renee
  
  2010-10-27 10:29
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5
  
  if ($string1 =~ /_aktuell_/) { ($string2) = $string1 =~ m/^((?:[^_]+_){2}[^_]+)_/; } else { $string2 = $string1; }
  
  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/
  - +7 replies
  - renee
    
    2010-10-27 10:33
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    YAPE::Regex::Explain gibt zu dem Regex folgende Erklärung:
    
    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
    
    (?-imsx:^((?:[^_]+_){2}[^_]+)_) 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): ---------------------------------------------------------------------- ^ the beginning of the string ---------------------------------------------------------------------- ( group and capture to \1: ---------------------------------------------------------------------- (?: group, but do not capture (2 times): ---------------------------------------------------------------------- [^_]+ any character except: '_' (1 or more times (matching the most amount possible)) ---------------------------------------------------------------------- _ '_' ---------------------------------------------------------------------- ){2} end of grouping ---------------------------------------------------------------------- [^_]+ any character except: '_' (1 or more times (matching the most amount possible)) ---------------------------------------------------------------------- ) end of \1 ---------------------------------------------------------------------- _ '_' ---------------------------------------------------------------------- ) 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/
    - +6 replies
    - wizard
      
      2010-10-27 10:42
      
      User since
      2010-10-27
      3 Artikel
      BenutzerIn
      
      Vielen Dank für die schnelle Antwort, funktioniert wie erhofft.
      Wie lernt man am besten RegEx. Ich verstehe zwar nach kurzer Zeit vorgegebene Ausdrücke aber wenn ich komplett alleine was bilden soll, sieht es düster aus. Gibts dafür irgendwelche Hilfsprogramme, die ihr empfehlen könnt?
      - +2 replies
      - pq
        
        2010-10-27 10:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        vielleicht ein buch lesen: http://regex.info/
        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
        
        wizard
        
        2010-10-27 10:54
        
        User since
        2010-10-27
        3 Artikel
        BenutzerIn
        
        danke. Habe das Buch jetzt auch bei books.google.de gefunden. Da werde ich mich die nächste Zeit mal einlesen.
      - renee
        
        2010-10-27 10:57
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Ich fand diese Webseite auch ganz gut: http://www.regenechsen.de/phpwcms/index.php?regex
        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/
      - FIFO
        
        2010-10-27 11:05
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Verständliche Infos gibt's auch hier, insbesondere Dinge wie Lookaraounds usw. werden gut erklärt.
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - Linuxer
        
        2010-10-27 11:08
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Zum Nachschlagen finde ich auch die enthaltene Dokumentation hilfreich:
        
        http://perldoc.perl.org/perlretut.html
        http://perldoc.perl.org/perlre.html
        http://perldoc.perl.org/perlrequick.html
        
        (Kann aber auch so einmal gelesen werden ;-))
        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!
- topeg
  
  2010-10-27 11:17
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Man kann das auch fast ohne Regexp lösen (split nutzt Regexps zum zerlegen):
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  if (index($string1,"_aktuell_")>-1) { $string2 = join("_",(split("_",$string1,4))[0..2]); } else { $string2 = $string1; }

View all threads created 2010-10-27 10:19.