grep und Teilstring (Allgemeines zu Perl)

[thread]19197[/thread]

grep und Teilstring

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
Gast Benjamin

2014-07-16 14:08
Hallo,

ich bin absoluter Neuling und komme mit einer if-Anweisung nicht weiter.
Ich möchte mit grep eine Liste durchsuchen, die aber wiederum nur einen Teilstring enthält.
Genauer:
$a kann Werte annehmen, die mit _15, _13, _12, _11,... enden.
Nur wenn _12, _11 usw. zutreffen, soll die Anweisung ausgeführt werden. Bisher habe ich:
Code: (dl )

if (grep($a =~ /$_/, (_12$, _11$, _10$, _08$, _07$, _04$, _00$, _94$, _91$, _90$, _87$, _67$, _24$))) { Anweisung...
Ich denke, dass ich die Syntax nach dem =~ noch falsch wähle. Kann mir jemand helfen?
Danke!

modedit Editiert von pq: code-tags
Last edited: 2014-07-16 14:11:59 +0200 (CEST)
- +12 replies
- pq
  
  2014-07-16 14:23
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Guest Benjamin
  Bisher habe ich:
  
  Code: (dl )
  
  if (grep($a =~ /$_/, (_12$, _11$, _10$, _08$, _07$, _04$, _00$, _94$, _91$, _90$, _87$, _67$, _24$))) { Anweisung...
  
  Ich denke, dass ich die Syntax nach dem =~ noch falsch wähle.
  
  eigentlich ist eher was anderes falsch:
  _12$, _11$, _10$,
  was soll das genau darstellen? sollen das strings sein?
  
  ich würde folgendes vorschlagen:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @list = qw/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /; if (grep $a =~ /_($_)$/, @list){ say "matched" }
  
  vielleicht ist es sogar sinnvoller, die zahlen in eine regex zusammenzufassen, damit du nicht immer 13 regexes durchlaufen musst.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @list = qw/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /; my $re = join "|", @list; if ($a =~ /_($re)$/ ){ say "matched" }
  
  Editiert von pq: beim ersten skript q bei qw// vergessen
  Last edited: 2014-07-16 15:02:26 +0200 (CEST)
  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
  - +11 replies
  - Gast Benjamin
    
    2014-07-16 14:50
    Vielen Dank!
    _12$ usw. sollte zum Beispiel bedeuten, dass die 12 am Ende des Strings zu suchen ist - so war die Idee. ;-)
    Ich habe die obere Lösung probiert, leider bekomme ich jetzt den Fehler "number found where operator expected [...] near "12 11"" und als Hinweis "Missing operator before 11?". Das geht natürlich für die nächsten Werte weiter. Ich traue mich daher mal, nach deiner Antwort (danke!) noch etwas genauer zu werden:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    my @list = w/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /; if (grep $a =~ /_($_)$/, @list) { if ((grep($a =~ /^$_/, (16, 24, 25, 34)) && ($tbvartyp || 2003) != 2003) || (grep($a =~ /^$_/, (43, 44, 63, 64)) && ($tbvartyp || 2002) != 2002) || (grep($a =~ /^$_/, (56)) && ($tbvartyp || 2004) != 2004) || (grep($a =~ /^$_/, (70, 75, 77, 78)) && ($tbvartyp || 2001) != 2001)) { push @comments, "matched"; } } else { if (($a =~ /^56/ && ($tbvartyp || 2004) != 2004) || ($a !~ /^56/ && ($tbvartyp || 2003) != 2003)) { push @comments, "matched"; } } }
    
    Wenn also ein Eintrag der Liste getroffen wird, geht es in die nächste if-Anweisung. Tut mir schon jetzt leid, wenn das hier total trivial ist, aber wo ist jetzt der Syntax-Fehler?
    Last edited: 2014-07-16 14:56:43 +0200 (CEST)
    - pq
      
      2014-07-16 15:01
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest Benjamin
      Vielen Dank!
      _12$ usw. sollte zum Beispiel bedeuten, dass die 12 am Ende des Strings zu suchen ist - so war die Idee. ;-)
      
      du kannst doch nicht mitten in ein skript irgendwo _12$ schreiben.
      
      sowas schreibt man nur innerhalbn einer regex.
      und eine regex fängt nicht mitten in der luft an.
      da schreibt man m/regex/ oder s/regex/.../. sonst ist das keine gültige perl-syntax.
      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
    - Linuxer
      
      2014-07-16 15:02
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Code: (dl )
      
      my @list = w/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /;
      
      Der Operator heisst qw(); nicht w(). Oder hier eben qw// anstatt w//; Tippfehler im Code.
      Last edited: 2014-07-16 15:03:10 +0200 (CEST)
      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!
      - +5 replies
      - Gast Benjamin
        
        2014-07-16 15:55
        
        Quote
        Der Operator heisst qw(); nicht w(). Oder hier eben qw// anstatt w//; Tippfehler im Code.
        
        Danke für den Hinweis!
        
        @pg: Sorry, wie gesagt bin ich absoluter Neuling und kenne mich noch gar nicht aus. Ich habe hier ein Perl-Script vorliegen, welches ich nun einigermaßen anpassen muss. Insofern sind mir regex u.ä. fremd.
        Auch deine Vereinfachung ist natürlich super und habe ich jetzt auch umgesetzt, war von meinem Vorgänger aber wohl nicht so schön gebaut worden.
        
        Mit dem folgenden Versuch bekomme ich jetzt leider wieder "Syntax error [...] near ") ||"
        
        Wenn ihr mir nochmal helfen mögt, freue ich mich sehr!
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my @list = qw/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /; if (grep $a =~ /_($_)$/, @list) { if ($a =~ m/^(16, 24, 25, 34)$/ && ($tbvartyp || 2003) != 2003) || ($a =~ m/^(43, 44, 63, 64)$/ && ($tbvartyp || 2002) != 2002) || ($a =~ m/^(56)$/ && ($tbvartyp || 2004) != 2004) || ($a =~ m/^(70, 75, 77, 78) && ($tbvartyp || 2001) != 2001)) { push @comments, "matched"; } } else { if (($a =~ /^56/ && ($tbvartyp || 2004) != 2004) || ($a !~ /^56/ && ($tbvartyp || 2003) != 2003)) { push @comments, "matched"; } } }
        
        Last edited: 2014-07-19 18:03:35 +0200 (CEST)
        
        +3 replies
        
        Raubtier
        
        2014-07-16 15:58
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        da fehlt eine ( beim 2. if
        
        +2 replies
        
        Linuxer
        
        2014-07-16 16:07
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ich hätte getippt, da ist ein Regex nicht abgeschlossen in Zeile 6:
        
        Code: (dl )
        
        1 2 3
        
        # | # v ($a =~ m/^(70, 75, 77, 78) && ($tbvartyp || 2001) != 2001)) {
        
        ;-)
        
        PS: ist beides der Fall ;-)
        Last edited: 2014-07-16 16:09:25 +0200 (CEST)
        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!
        
        Raubtier
        
        2014-07-16 16:15
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Stimmt! Ich habe mir mal sagen lassen, dass Editoren mit Syntax-Highlighting da helfen können... SCNR.
        
        Linuxer
        
        2014-07-16 16:13
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Was sollen diese Regex jetzt eigentlich bewirken?
        Die weichen wieder stark von dem ab, was pq Dir schon gezeigt hat. Warum? Ist das jetzt Code für eine andere Aufgabe?
        
        Wenn Du Perl programmieren willst oder sollst, dann solltest Du Dir dringend die Dokumentationen anschauen und auch mal ein Tutorial lesen.
        
        http://perl-tutorial.org/ <- Empfehlung: Modern Perl
        
        Doku zu Regex:
        
        http://perldoc.perl.org/perldoc/perlretut.html
        http://perldoc.perl.org/perldoc/perlrequick.html
        http://perldoc.perl.org/perldoc/perlre.html
        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!
    - pq
      
      2014-07-16 15:07
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest Benjamin
      Vielen Dank!
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      my @list = w/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /; if (grep $a =~ /_($_)$/, @list) { if ((grep($a =~ /^$_/, (16, 24, 25, 34)) && ($tbvartyp || 2003) != 2003) || (grep($a =~ /^$_/, (43, 44, 63, 64)) && ($tbvartyp || 2002) != 2002) || (grep($a =~ /^$_/, (56)) && ($tbvartyp || 2004) != 2004) || (grep($a =~ /^$_/, (70, 75, 77, 78)) && ($tbvartyp || 2001) != 2001)) { push @comments, "matched"; } } else { if (($a =~ /^56/ && ($tbvartyp || 2004) != 2004) || ($a !~ /^56/ && ($tbvartyp || 2003) != 2003)) { push @comments, "matched"; } } }
      
      du machst es dir echt schwer.
      statt mehrere zahlen zu durchlaufen, schreib doch einfach:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      if (($a =~ m/^(16|24|25|34)$/ && ($tbvartyp || 2003) != 2003) || ($a =~ m/^(43|44|63|64)$/ && ($tbvartyp || 2002) != 2002) || ($a =~ m/^(56)$/ && ($tbvartyp || 2004) != 2004) || ($a =~ m/^(70|75|77|78)$/ && ($tbvartyp || 2001) != 2001)) {
      
      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
    - Raubtier
      
      2014-07-16 15:50
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Was möchtest du eigentlich mit den Abfragen wie
      
      Code (perl): (dl )
      
      1 2 3
      
      bedingung1 && ($tbvartyp || 2003) != 2003) || bedingung2 && ($tbvartyp || 2004) != 2004) || ...
      
      erreichen?
      
      Ich würde wohl die Abfrage, ob $tbvartyp wahr ist, herausziehen, sodass nur noch
      
      Code (perl): (dl )
      
      1 2 3
      
      bedingung1 && $tbvartyp != 2003 || bedingung2 && $tbvartyp != 2004 || ...
      
      übrig bleibt. Das wäre irgendwie übersichtlicher. Denn wenn $tbvartyp nicht wahr ist, ist ja der hintere Teil in deinem Und immer falsch und somit das gesamte if.
      
      Oder übersehe ich da gerade was?
      - Gast Benjamin
        
        2014-07-16 16:31
        
        @alle: sorry, da ist jetzt einiges durcheinander geraten (v.a. bei mir!).
        Mein letzter geposteter Code war natürlich leider wieder Mischmasch. Aber die Variante von pq hilft nun und die Syntax-Fehler, die ihr gefunden habt, habe ich auch behoben. Vielen Dank!
        @Raubtier: du hast sicherlich recht mit deinem Verbesserungsvorschlag, das sehe ich mir nochmal an.
        @Linuxer: ja, natürlich ist es sehr sinnvoll, mich da richtig einzuarbeiten. Aber wie es eben so ist: ich muss nur hier und da mal das Skript anpassen, dann läuft es ja so "wie es soll" und dann kann man es wieder weglegen... Ich würde mich gerne richtig einarbeiten, aber das lässt die Arbeit nicht so recht zu.
        
        Danke nochmals - v.a. für Euer Verständnis!
        Last edited: 2014-07-16 16:41:20 +0200 (CEST)
- hlubenow
  
  2014-07-16 18:50
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Guest Benjamin
  ich bin absoluter Neuling und komme mit einer if-Anweisung nicht weiter. Ich möchte mit grep eine Liste durchsuchen,
  
  Finde ich keine gute Idee. Perls grep ist nicht so leicht zu verstehen, vor allem, wenn man dasselbe erwartet, was man vom Shell-Befehl "grep" kennt.
  Als "absoluter Neuling" würde ich die Listen lieber von Hand durchsuchen. Das ist auch besser für das Gesamtverständnis.

View all threads created 2014-07-16 14:08.