Noch eine Frage zu Regulären Ausdrücken (Allgemeines zu Perl)

[thread]14307[/thread]

Noch eine Frage zu Regulären Ausdrücken

Leser: 25

Articles: hide open all | hide show old branches

+21 replies
jan999

2009-11-27 18:23

User since
2009-04-02
109 Artikel
BenutzerIn

Hi !

ich habe eine Variable welche einen oder mehrere Werte beinhalten kann - getrennt durch eine ";".

Beispiele:

$pruefwert = "Muster2";
$pruefwert = "Muster1;Muster2;Muster3";

$suchstring = "Muster2";

Wie könnte man das vorkommen von $suchstring in $pruefwert testen.

Wäre es jetzt auch möglich die Groß-/Kleinschreibung auszuschalten ??

Gruß Jan :-)
- +5 replies
- bianca
  
  2009-11-27 18:29
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2
  
  if (";$pruefwert;" =~ /\;$suchstring\;/i) { }
  
  Edit: i hinzugefügt für ignore case
  Edit 2: Vor dem Regex ein
  
  Code (perl): (dl )
  
  $suchstring = quotemeta $suchstring;
  
  verhindert falsche Ergebnisse, wenn $suchstring "gefährliche" Zeichen enthält.
  Last edited: 2009-11-27 18:39:19 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Dubu
    
    2009-11-27 18:49
    
    User since
    2003-08-04
    2145 Artikel
    ModeratorIn + EditorIn
    
    Das Quoten der Semicolons ist nicht nötig.
    
    Die Lösung findet den $suchstring nicht, wenn er am Anfang oder am Ende von $pruefwert steht.
    
    Interessant wäre die Frage, aus welchen Zeichen die "MusterX" bestehen könnten. Evtl. kann man passend matchen (z.B. mit \b).
    Last edited: 2009-11-27 18:50:07 +0100 (CET)
    - +3 replies
    - bianca
      
      2009-11-27 18:55
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2009-11-27T17:49:06 Dubu
      Die Lösung findet den $suchstring nicht, wenn er am Anfang oder am Ende von $pruefwert steht.
      
      Bei mir schon:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $pruefwert = "Muster2;Muster1;Muster3"; my $suchstring = "Muster2"; if (";$pruefwert;" =~ /\;$suchstring\;/i) { print "gefunden!"; }
      
      Code: (dl )
      
      gefunden!
      
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Dubu
        
        2009-11-27 18:58
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Oh, sorry!
        Ich hatte übersehen, dass du Semikolons beim $pruefwert hinzugefügt hast. Sehr geschickt! :-D
        
        bianca
        
        2009-11-27 19:03
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-27T17:58:59 Dubu
        Oh, sorry!
        Ich hatte übersehen, dass du Semikolons beim $pruefwert hinzugefügt hast. Sehr geschickt! :-D
        
        Kein Thema.
        Dieser plumpe "Trick" ist für solche Anwendungsfälle immer wieder nett :)
        10 print "Hallo"
        20 goto 10
- +15 replies
- Linuxer
  
  2009-11-27 18:51
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi, alternativ zur Regex-Lösung:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #! /usr/bin/perl use strict; use warnings; my $text = 'abc;def;ghi'; my $such = 'DEF'; # finde string $such in $text ohne Ruecksicht auf gross/KLEIN if ( index( lc($text), lc($such), 0 ) >= 0 ) { print "Treffer"; } else { print "kein Treffer"; }
  
  perldoc -f index
  perldoc -f lc
  
  edit: added:
  Diese aufgezeigte Lösung akzeptiert allerdings auch Suchstrings, die die Mustertrenner beinhalten.
  Will sagen, wenn Du $such = 'c;D' verwendest, wird das ebenfalls Treffer bringen.
  
  Die Frage ist, wie genau kennst Du die Eingabedaten und wie zuverlässig sind sie?
  Und auch, wie genau willst Du die Suche haben? Soll sie eine Regex-Suche ermöglichen, oder nicht?
  
  Ein anderer Ansatz könnte beispielsweise sein:
  
  Datenstring beispielsweise mit einem Text::CSV-Modul einlesen und Felder in einen Array ausgeben lassen. Wenn beispielsweise "a;bc" ein gültiger Wert wäre, kann man kein einfaches split() nutzen, um die Werte zu ermitteln.
  mit einem grep() auf den Array kann man dann mit mittels Regex oder index() kontrollieren, ob eines der Felder den Suchbegriff enthält.
  
  edit2: Ansatzbeschreibung etwas ausformuliert.
  Last edited: 2009-11-27 20:52:06 +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
  - Dubu
    
    2009-11-27 19:05
    User since
    2003-08-04
    2145 Artikel
    ModeratorIn + EditorIn
    
    Kommt etwas drauf an, wie die Frage genau gemeint ist. Ein einfaches "kommt $suchstring irgendwo in $pruefwert vor, bis auf Groß-/Kleinschreibung" lässt sich mit deinem Code oder einem einfachen
    
    Code (perl): (dl )
    
    if ($pruefwert =~ /\Q$suchstring/i) ...
    
    lösen, aber das liefert auch einen Treffer, wenn man nach einem Teilstring der Muster sucht! Es ist die Frage, ob so etwas erlaubt/beabsichtigt wäre.
    Biancas Lösung findet genau die Werte die identisch mit dem $suchstring sind (bis eben auf Groß-/Kleinschreibung).
    - +3 replies
    - bianca
      
      2009-11-27 19:08
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2009-11-27T18:05:06 Dubu
      Es ist die Frage, ob so etwas erlaubt/beabsichtigt wäre.
      
      Und genau das ist eben nicht beabsichtigt, denn die Frage lautet "Wie könnte man das vorkommen von $suchstring in $pruefwert testen." und die Beschreibung für $pruefwert lautet "welche einen oder mehrere Werte beinhalten kann - getrennt durch eine ";"".
      Damit ist klar, dass er in einer Art CSV (Trennzeichen Semikolon) genau einen Wert und keine Teile davon finden will.
      Insofern scheidet Linuxers Lösung aus.
      
      Grüße
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Linuxer
        
        2009-11-27 19:13
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        IMHO ist die Definition der Anforderungen nicht ausreichend formuliert, um so kategorisch Lösungen auszuschliessen, wie Du es betreibst.
        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!
        
        bianca
        
        2009-11-27 19:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-27T18:13:55 Linuxer
        IMHO ist die Definition der Anforderungen nicht ausreichend formuliert, um so kategorisch Lösungen auszuschliessen, wie Du es betreibst.
        
        Akademisch korrekt nicht, da gebe ich Dir Recht.
        
        Praxistauglich ist die Beschreibung allemal und für meine Begriffe völlig ausreichend, um festzustellen, dass Teile nicht gesucht werden sondern nur ganze in Semikolon eingeschlossene Begriffe.
        Mag Auffassungssache sein, lassen wir den Fragesteller entscheiden, was er braucht :)
        10 print "Hallo"
        20 goto 10
    - +7 replies
    - Linuxer
      
      2009-11-27 19:19
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Deine Antwort hat sich nun mit meinem Edit überschnitten, aber mal ein Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      #! /usr/bin/perl use strict; use warnings; my $text = '"a;bc";def;ghi'; my $such = 'bc";def'; #oder #my $such = 'def;ghi'; if (";$text;" =~ /\;$such\;/i) { print "Treffer;\n"; }
      
      IMHO, legitime Daten, aber ebenfalls nicht korrekt. Mag zwar etwas konstruiert sein, aber auch nicht von der Hand zu weisen.
      
      edit: 2. Suchbeispiel eingebaut.
      Last edited: 2009-11-27 19:31:27 +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!
      - +6 replies
      - bianca
        
        2009-11-27 19:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-27T18:19:53 Linuxer
        IMHO, legitime Daten, aber ebenfalls nicht korrekt. Mag zwar etwas konstruiert sein, aber auch nicht von der Hand zu weisen.
        
        Dein Beispiel ist praxisfern, weil in der Fragestellung eindeutig das Semikolon als Trennzeichen festgelegt wurde. Insofern würde niemals nach 'bc";def' gesucht werden.
        Wieder aus der Praxis gesprochen und darum geht es mir nur.
        Deine akademischen Ansätze sind m.E. in Ordnung aber schlicht nicht gefragt an dieser Stelle.
        
        Grüße
        
        Edit: s/Dein Beispiel ist Unfug/Dein Beispiel ist praxisfern/
        Last edited: 2009-11-27 19:37:51 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        Linuxer
        
        2009-11-27 19:36
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Also weil das Semikolon als Trennzeichen verwendet wird, darf es dadurch nicht mehr als Zeichen innerhalb der Muster auftreten. CSV sieht es da etwas anders (und CSV hast Du ins Spiel gebracht).
        
        Schön das Dein "aus der Praxis gesprochen" meinem "aus der Praxis gesprochen" widerspricht.
        Schon mal drüber nachgedacht, dass jeder andere Erfahrungen gemacht hat?
        
        Nur weil Du nicht die Erfahrungen gemacht hast, die ich gemacht habe, brauchst Du meine Vorschläge nicht kategorisch ablehnen oder als Unfug zu bezeichnen.
        
        Ich werde mich wohl in Zukunft zurückhalten, in Beitragsfolgen zu antworten, in denen Du Deine Weisheit bereits zu Protokoll gegeben hast.
        
        edit: typo
        Last edited: 2009-11-27 20:11:56 +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!
        
        bianca
        
        2009-11-27 19:41
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-27T18:36:39 Linuxer
        Nur weil Du nicht die Erfahrungen gemacht hast, die ich gemacht habe, brauchst Du meine Vorschläge nicht kategorisch ablehnen oder als Unfug zu bezeichnen.
        
        Ich werde mich wohl in Zukunft zurückhalten, in Beitragsfolgen zu antworten, in denen Du Deine Weisheit bereits zu Protokoll gegeben hast.
        
        Ja, unser feinfühliger Linuxer....
        Sorry für das Unfug, hab es schon abgeändert.
        
        Es geht doch nicht um meine Weisheit sondern um die Fragestellung. Und wenn der Fragesteller doch schon eindeutig und unzweifelhaft darstellt, dass er mehrere Werte durch Semikolon trennt (wie sicher oder unsicher das auch immer sein mag) gibt es doch wirklich nichts weiter entfernteres als anzunehmen, dass das Semikolon Bestandteil der Suche sein wird. Zumindest in meinen Augen.
        
        Und selbst wenn er im Suchbegriff das Semikolon nicht vorher irgendwo abweist/rausfischt, auch egal. Dann trifft die Suche halt einmal mehr, wo sie nicht sollte. Diese Ausnahme läßt mich aber doch nicht annehmen, dass es die Regel wird, die es in erster Linie zu verhindern gilt, oder?
        
        Edit: Denn die Frage war nicht, wie man die Suche sicher macht sondern wie man einen Begriff in einer Liste von semikolongetrennten Elementen findet.
        Last edited: 2009-11-27 19:45:58 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        pq
        
        2009-11-27 20:25
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2009-11-27T18:29:58 bianca
        Dein Beispiel ist praxisfern, weil in der Fragestellung eindeutig das Semikolon als Trennzeichen festgelegt wurde. Insofern würde niemals nach 'bc";def' gesucht werden.
        
        daten kommen immer anders als man denkt. etwas weiter zu denken ist ganz im gegenteil sehr praxisnah, denn wenn man sich zu sehr auf eine interpretierte aufgabenstellung festlegt, kann einem ein skript irgendwann mal unerwartet um die ohren fliegen. wenn man ein paar jährchen erfahrung hat, denkt man halt weiter.
        
        nur weil du meinst, die einzig korrekte interpretation der aufgabenstellung gefunden zu haben, meinst du, linuxers lösung "niedermachen" zu können, obwohl er extra dazuschreibt, dass es auf die aufgabenstellung drauf ankommt.
        
        also lass bitte die anderen beiträge bitte eher unkommentiert, als darauf zu pochen, dass deine interpretation die einzig wahre ist und andere ja nur praxisferne akademische beispiele liefern.
        
        edit: schreibfehler
        Last edited: 2009-11-27 20:28:16 +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
        
        +2 replies
        
        bianca
        
        2009-11-27 20:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-27T19:25:50 pq
        daten kommen immer anders als man denkt. etwas weiter zu denken ist ganz im gegenteil sehr praxisnah, denn wenn man sich zu sehr auf eine interpretierte aufgabenstellung festlegt, kann einem ein skript irgendwann mal unerwartet um die ohren fliegen. wenn man ein paar jährchen erfahrung hat, denkt man halt weiter.
        
        Mag ja ein edles Anliegen von Euch sein aber es wird nicht in einem einzigen Fall verhindern, dass jemandem sein Script um die Ohren fliegt, soweit sagt mir das meine 24jährige Coder-Erfahrung.
        Insofern finde ich es immer zweckdienlich, auf die Frage in der der Praxis am nächsten liegenden Weise unter Einbeziehung aller geschilderten und nicht aller herbeigedachten Umstände einzugehen.
        Sorry dafür!
        Ist nicht persönlich gemeint.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-11-27 20:45
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        24 jahre... herzlichen glückwunsch =)
        ich hab nach spätestens 13 jahren schon gelernt, dass ich vorsicht walten lasse, wenn jemand daten getrennt mit semikolon hat und nachher womoglich mit echten CSV-daten kommt (du weisst sicher, dass diese innerhalb von quotes auch semikolons enthalten dürfen, welche dann keine trennzeichen sind).
        
        im übrigen sagt die zahl der jahre alleine nichts aus. wenn man sich jahrelang nur mit demselben kram beschäftigt, kann man trotzdem noch unerfahren im allgemeinen sein.
        ich jedenfalls habe die erfahrung, dass kunden gerne aufgaben stellen und die hälfte vergessen dazuzusagen.
        
        es ist egal, wie die daten nun wirklich aussehen und wie genau oder ungenau die aufgabenstellung ist.
        fakt ist, dass du dich mit deiner überheblichen art in diesem thread ziemlich unbeliebt machst. du kannst gerne glauben, dass deine interpretation die richtige ist, aber wie du linuxers ausführungen kommentierst, ist einfach mal unnötig. da nützt mir auch dein "ist nicht persönlich gemeint" nichts. linuxer hat im gegensatz zu dir nicht behauptet "ich habs richtig verstanden, alles andere ist praxisfern".
        
        "ist nicht persönlich gemeint".
        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
  - +3 replies
  - havi
    
    2009-11-28 10:44
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    2009-11-27T17:51:29 Linuxer
    Hi, alternativ zur Regex-Lösung:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    #! /usr/bin/perl use strict; use warnings; my $text = 'abc;def;ghi'; my $such = 'DEF'; # finde string $such in $text ohne Ruecksicht auf gross/KLEIN if ( index( lc($text), lc($such), 0 ) >= 0 ) { print "Treffer"; } else { print "kein Treffer"; }
    
    perldoc -f index
    perldoc -f lc
    
    ... noch mehr zu index/rindex gibts in der Perl-Zeitung Ausgabe 3 ;)
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +2 replies
    - jan999
      
      2009-11-29 21:11
      
      User since
      2009-04-02
      109 Artikel
      BenutzerIn
      
      Moin !
      
      leider bin ich erst heute zum richtigen lesen gekommen und erst einmal vielen Dank!
      
      Ja, es ist richtig es soll ";" getrennt werden und in den Begriffen kommt das ";" NICHT vor !!!
      
      Zu vielen anderen Postings - nicht doch wegen mir die Köpfe einhauen !
      
      Gruß Jan :-)
      - bianca
        
        2009-11-30 09:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-29T20:11:04 jan999
        Ja, es ist richtig es soll ";" getrennt werden und in den Begriffen kommt das ";" NICHT vor !!!
        
        War mir soweit klar.
        Aber entscheidende Frage: Möchtest Du auch "Muster" finden, wenn in der Zeile nur "Muster1;Muster2;Muster3" steht?
        Oder darf nur "Muster1" oder "Muster2" oder "Muster3" komplett gefunden werden.
        
        Falls nämlich auch "Muster", "ster", "ust" usw. gefunden werden sollen, könnte die Lösung mit index() von Linuxer noch interessant sein.
        10 print "Hallo"
        20 goto 10

View all threads created 2009-11-27 18:23.