reguläre Ausdrücke (Allgemeines zu Perl)

[thread]14442[/thread]

reguläre Ausdrücke

Leser: 22

Articles: hide open all | hide show old branches

+18 replies
Gast NC10

2009-01-03 19:43
Hallo,
ich hätte konkrete Fragen zu regulären Ausdrucken in Perl. Und zwar hab ich ein array volller verschiedener Wörter (sortiert nach Häufigkeit).
Aus diesem Array möchte ich jetzt nur diejenigen ausgeben, die mit einem Großbuchstaben beginnen, also nur jene die großgeschrieben sind. Hab das auf folgende Art und Weise realisiert:
Code: (dl )

1 2 3 4 5 6 7

open(AUSGABE, "$ausgabe); #Ausgabe aller großgeschriebenen Wörter foreach $elem /^(@alle_sortierten_woerter) { if ($elem=~/[A-ZÄÖÜ]{1}/) { print(AUSGABE "\"$elem\" kommt frequenzliste{$elem} mal vor \n"); } }
Diese Lösung /[A-ZÄÖÜ]{1}/ funktioniert auch wunderbar, allerdings hab ich mir gedacht dass /\u{1}/ genauso funktionieren müsste. Tut es aber nicht! Warum? Wäre toll wenn mir das jemand erklären könnte. \u steht doch für Großbuchstaben?!?!

Noch eine Frage: wie könnte ich bei meinem Beispiel alle Wörter ausgeben, die nur EINEN Vokal haben? Da bin ich auf keine Lösung gekommen.

Vielen Dank für HILFE!
- +2 replies
- pq
  
  2009-01-03 19:45
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  beim nächsten mal bitte nur einmal posten, das reicht.
  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 NC10
    
    2009-01-03 19:46
    
    sorry! das war wirklich nur ein Versehen!
- pq
  
  2009-01-03 19:55
  User since
  2003-08-04
  12208 Artikel
  Admin1
  \u bedeutet nicht in regexes grossbuchstaben, sondern \u macht den nächsten buchstaben eines strings gross:
  
  Code (perl): (dl )
  
  1 2 3
  
  print "\utest\n"; __END__ Test
  
  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
- +14 replies
- murphy
  
  2009-01-03 20:36
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Guest NC10
  [...]
  Diese Lösung /[A-ZÄÖÜ]{1}/ funktioniert auch wunderbar, allerdings hab ich mir gedacht dass /\u{1}/ genauso funktionieren müsste. Tut es aber nicht! Warum?
  
  \u verwandelt den folgenden Buchstaben in einen Großbuchstaben, was Du suchst ist wohl eher [[:upper:]]. Allerdings muss man recht vorsichtig sein, was das matchen von Zeichenklassen auf Umlaute betrifft — das Verhalten ist hier abhängig von Zeichensatz und Locale.
  
  Quote
  Noch eine Frage: wie könnte ich bei meinem Beispiel alle Wörter ausgeben, die nur EINEN Vokal haben?
  [...]
  
  Eine naheliegende Möglichkeit wäre es zum Beispiel, die Vorkommen von Vokalen zu zählen:
  
  Code (perl): (dl )
  
  1 2 3
  
  if (lc($_) =~ y/aeiou// == 1) { # $_ enthält genau einen Vokal }
  
  When C++ is your hammer, every problem looks like your thumb.
  - +13 replies
  - Gast NC10
    
    2010-01-04 00:43
    
    ok sehr seltsam. In meinem Skript steht, dass man statt [[:upper:]] auch die Escape Sequenz auch mit \u ausdrücken kann. Sehr seltsam. Danke für den Hinweis!
    
    Eine Frage noch: [code]if (lc($_) =~ y/aeiou// == 1) { [/quote]
    Was bedeutet dieses y?
    
    Vielen Dank
    - +12 replies
    - Linuxer
      
      2010-01-04 00:55
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Guest NC10
      Eine Frage noch:
      
      Code: (dl )
      
      if (lc($_) =~ y/aeiou// == 1) {
      
      Was bedeutet dieses y?
      
      Vielen Dank
      
      y/// kann auch als tr/// geschrieben werden und ist der "transliterate" Operator.
      Siehe perldoc perlop
      
      Addendum:
      
      Siehe auch: perldoc perlfaq4
      Last edited: 2010-01-04 00:59:35 +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!
      - +11 replies
      - Gast NC10
        
        2010-01-04 01:16
        
        Code: (dl )
        
        if (lc($_) =~ y/aeiou// == 1) {
        
        Kann mir das noch jemand genau erklären?
        tr ersetzt irgendetwas durch irgendetwas.
        Also tr/Suchliste/Ersetzungsliste quasi, oder?
        Also in meinem konkreten Fall wird ein Vokal, also entweder a e i o oder u durch nichts ersetzt und jedes dieser Ersetzungen wird auf eins gezählt. nur dann handel es sich um ein Wort mit nur einem Vokal. Versteh ich das so richtig?
        Wenn ja, dann hab ich mir gedacht könnte ich einen Vokal genauso gut durch beispielsweise ein v ersetzen. ALso zum Beispiel y/aeiou/v/==1 . Funktioniert aber nicht? Warum?
        
        Vielen Dank für eure super Hilfe! NC10
        
        +4 replies
        
        Linuxer
        
        2010-01-04 01:26
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Aus der perldoc perlop:
        
        Quote
        ...If the REPLACEMENTLIST is empty, the SEARCHLIST is replicated...
        
        Also, wenn die Ersetzungsliste leer ist, wird die Suchliste entsprechend kopiert.
        
        Ein
        
        Code: (dl )
        
        tr/abc//
        
        wird somit zu einem
        
        Code: (dl )
        
        tr/abc/abc/
        
        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
        
        Gast NC10
        
        2010-01-04 10:22
        
        oh cool danke, ich sollte mir die perldoc genauer ansehen. Danke. Nochmal zu meiner Frage von vorher: warum funktioniert ein ersetzen beispielsweise mit v nicht?
        
        Danke!
        
        +2 replies
        
        Gast Linuxer_off
        
        2010-01-04 11:07
        
        Hi,
        
        definiere bitte "funktioniert nicht" genauer. Was passiert, wenn Du es ausprobierst?
        
        Du hast eine Liste von 5 Vokalen und eine Liste, die aus einem "v" besteht.
        
        Ich habe grad kein Perl zur Hand, kann es also nicht testen, aber ich denke, die Ersetzung funktioniert schon...
        
        Die Listen werden 1:1 abgearbeitet. Also das erste Elemente der Suchliste wird durch das erste Element der Ersetzungsliste ersetzt...
        Du hast nur eine Ersetzung für das 'a' definiert, also wird auch nur das a ersetzt... Genauere Beschreibung steht in der perldoc ;o))
        
        Testvorschlag auf der Kommandozeile (linux):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        perl -wle ' # string definieren $_ = "Hallo Welt."; # Transliteration durchführen und Anzahl merken $a = tr/aeiou/v/; # Anzahl und String ausgeben print "a: $a; string: $_"; '
        
        Linuxer
        
        2010-01-04 17:50
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        So, nun hab ich wieder ein Linux mit Perl unter den Fingern. Meine Aussage war leider falsch.
        
        Wie in der perldoc auch nachzulesen, wird das letzte Zeichen der Ersetzungsliste so oft wiederholt, bis die Ersetzungsliste genauso lang ist wie die Suchliste.
        
        Also wird
        
        Code: (dl )
        
        tr/aeiou/v/
        
        zu
        
        Code: (dl )
        
        tr/aeiou/vvvvv/
        
        Und hier mal der Testlauf:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        0 : ~$ perl -wle ' # string definieren $_ = "Hallo Welt."; # Transliteration durchführen und Anzahl merken $a = tr/aeiou/v/; # Anzahl und String ausgeben print "a: $a; string: $_"; ' a: 3; string: Hvllv Wvlt. 0 : ~$
        
        Die andere Problematik mit lc() wurde ja bereits von anderen behandelt.
        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!
        
        +6 replies
        
        Taulmarill
        
        2010-01-04 10:31
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Guest NC10
        
        Code: (dl )
        
        if (lc($_) =~ y/aeiou// == 1) {
        
        ....dann hab ich mir gedacht könnte ich einen Vokal genauso gut durch beispielsweise ein v ersetzen. ALso zum Beispiel y/aeiou/v/==1 . Funktioniert aber nicht? Warum?
        
        Der Code ändert die Variable nicht, weil hier der Rückgabewert der Funktion lc geändert wird, nicht der Inhalt der Variable.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        Gast NC10
        
        2010-01-04 12:45
        
        wenn ich zum Beispiel folgendes schreibe:
        
        Code: (dl )
        
        if (lc($_) =~ tr/aeiou/v/ == 1) {
        
        funktioniert das nicht:
        Es kommt folgende Fehlermeldung:
        Can't modify lc in transliteration (tr///)
        
        Warum? Eigentlich müsste es ja egal sein mit was ich ersetze?
        
        pq
        
        2010-01-04 13:02
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das ergebnis von lc ist offensichtlich kein lvalue, den man modifizieren kann.
        die erklärung wurde dir doch schon gebeben, es wird in deinem fall nichts verändert, weil du auf der ersetzungsseite nichts stehen hattest.
        sobald du da was hinschreibst, versucht perl, den string zu modifizieren, was aber im fall von lc nicht funktioniert.
        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
        
        renee
        
        2010-01-04 13:04
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Code: (dl )
        
        if( (my $test = lc($_)) =~ tr/aeiou/vvvvv/ == 1 );
        
        oder
        
        Code: (dl )
        
        if( $_ =~ tr/aeiouAEIOU/vvvvvvvvvv/ == 1 );
        
        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
        
        pq
        
        2010-01-04 13:02
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hier wird gar nichts geändert =)
        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 NC10
        
        2010-01-04 17:36
        
        ah okay, danke jetzt hab ichs kapiert. DANKE für die guten Erklärungen!
        Vielen vielen Dank!

View all threads created 2009-01-03 19:43.