prüfen ob String Teil eines Array ist (Allgemeines zu Perl)

[thread]17614[/thread]

prüfen ob String Teil eines Array ist

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

Teilbaum:
code-formatierung (4 Artikel) 2012-08-01 13:50

+15 replies
Iggy86

2012-08-01 09:19
User since
2012-07-26
41 Artikel
BenutzerIn
Hi,
ich würde gerne prüfen ob eine String Variable Teil eines Array ist.
Mit der folgenden Anweisung funktioniert es nicht.
Code: (dl )

if ($_ =~/@searchstring/i)
hat jemand eine Idee?
- +14 replies
- Muffi
  
  2012-08-01 09:24
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  if (grep { $_ =~ /nach_was_gesucht_werden_soll/ } @array)
  
  oder mit neuerem Perl (ab 5.12, in 5.10 buggt ~~ immer mal wieder)
  
  Code (perl): (dl )
  
  if (qr/nach_was_gesucht_werden_soll/ ~~ @array)
  
  1 + 1 = 10
  - +13 replies
  - Iggy86
    
    2012-08-01 09:58
    User since
    2012-07-26
    41 Artikel
    BenutzerIn
    
    danke schon mal!
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    open(IN,'<'.$f) || die "Can not open file $datei: $!"; while(<IN>){ $n=$n+1; printf "$n.)$_"; if (grep{$_} @searchstring) { print "\nfound in $f in $z\n\n" } else { } } close IN;
    
    habe den grep befehl eingefügt, aber er zeigt mir an, dass er es in jedem $f findet. was mache ich falsch?
    - +2 replies
    - Muffi
      
      2012-08-01 10:37
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Kannst du mal in Worten sagen was du da in der Datei suchen willst?
      Dieser grep kann so nicht funktionieren, schon mal weil er anders abgetippt wurde.
      Ich weiss nur nicht ob ich wirklich weiss was du vorhast.
      1 + 1 = 10
      - Iggy86
        
        2012-08-01 10:44
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        ich will den string der in dem $_ von der open, while Funktion gespeichert ist mit dem Array @searchstring vergleichen. Wenn $_ Teil des Array ist, soll eine Ausgabe erfolgen.
    - +10 replies
    - Raubtier
      
      2012-08-01 10:43
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      2012-08-01T07:58:48 Iggy86
      danke schon mal!
      
      Code: (dl )
      
      open(IN,'<'.$f) || die "Can not open file $datei: $!";
      
      Nimm doch das open mit 3 Argumenten!
      open(my $IN, '<', $f) or die ...
      
      Quote
      
      Code: (dl )
      
      if (grep{$_} @searchstring)
      
      Das prüft nur, ob $_ wahr ist (und @searchstring mindestens 1 Element hat)!
      
      Änderungen:
      1. Nimm eine benannte Variable für die eingelesene Zeile, etwa $zeile
      2. Nun kannst du $_ in dem grep (wird den Elementen aus @searchstring zugeordner) sinnvoll werwenden, indem du es mit $zeile vergleichst.
      
      -> grep { /\Q$zeile/ } @searchstring
      - +9 replies
      - Iggy86
        
        2012-08-01 12:31
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        hallo raubtier,
        habe es so gemacht, wie du es vorgeschlagen hast.
        leider funktioniert es nicht. es gibt aus, dass es in keiner zeile etwas findet.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        open(my $IN,'<'.$f) || die "Can not open file $datei: $!"; while(<$IN>){ $n=$n+1; printf "$n.)$_"; $t = $_; if (grep{/\Q$t/} @searchstring) { print "\nfound in $f in $z\n\n" } else { print "\nnot found @searchstring in $_\n" } } close $IN; }
        
        pq
        
        2012-08-01 12:41
        
        Subtree with 5 replies: code-formatierung
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hat dir schonmal jemand gesagt, dass deine code-formatierung total unlesbar ist? wenn du daran arbeitest, würde es vielleicht auch den helfern mehr spass machen, den code zu analysieren.
        
        Editiert von pq: teilbaum
        Last edited: 2012-08-01 13:44:31 +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
        
        +3 replies
        
        Iggy86
        
        2012-08-01 14:04
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        open(my $IN,'<'.$f) || die "Can not open file $datei: $!"; while(<$IN>){ $n=$n+1; printf "$n.)$_"; foreach $t (@searchstring) { if ($_=~/$t/i) { print "\nfound in $f in $z\n\n" } else { #print "\nnot found $t in $_\n" } } } close $IN;
        
        so funktioniert es!
        keine ahnung ob meine codeformatierung richtig ist, wenn nicht, bitte ich dies zu entschuldigen
        
        Muffi
        
        2012-08-01 14:11
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        wars vielleicht das "i" und deine gross-kleinschreibung hat nicht gepasst?
        1 + 1 = 10
        
        Raubtier
        
        2012-08-01 14:28
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Du hast meine Antwort oben aber schon gelesen?
        open(my $IN,'<'.$f) wäre besser open(my $IN,'<',$f)
        
        (ok, stört so nicht wirklich, aber das IN -> $IN hast du ja schon übernommen, also warum nicht auch das Komma?)
        
        Warum ist das while eingerückt? Sollte auf derselben Ebene wie das open sein.
        Das $n=$n+1; geht auch kürzer: ++$n; - aber du kannst stattdessen auch einfach $. benutzen, Perl zählt die Zeilen schon automatisch mit.
        
        Dann hast du das foreach. Da benutzt du eine benannte Variable. In dem while über die Datei aber nicht. Es ist generell besser, das genau andersrum zu machen, also in den äußeren Schleifen die Variable zu benennen und nur in kurzen inneren Schleifen $_ zu benutzen.
        
        Die beiden prints sollten weiter eingerückt sein.
        
        Das "found in $f in $z" ist irreführend. Du kannst $f in $z finden oder $z in $f, aber was soll "in in" bedeuten - ah, $f ist ein Dateiname, also schreib besser "found $z in file $f. Aber was ist $z?
        
        if ($_=~/$t/i) --> wenn du $_ benutzt, dann brauchst du das nicht zu schreiben beim RE-Match. Außerdem, da du meinen Code mit dem \Q oben nicht genommen hast: du behandelst die Suchstrings hier als REs. Willst du das? Kann sein...
        
        Ich hoffe, die Hinweise reichen erstmal.

View all threads created 2012-08-01 09:19.