Durchsuchen eines Arrays und Augabe des Indexes (solved) (Allgemeines zu Perl)

[thread]16799[/thread]

Durchsuchen eines Arrays und Augabe des Indexes [solved]

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+6 replies
choff

2011-10-11 11:40
User since
2011-10-05
12 articles
BenutzerIn
Hallo, meine nächste Frage:

ich möchte ein Array durchsuchen. Das funktioniert ja ganz gut mit grep.

Nur weiß ich den genauen Syntax nicht. Also:
Im @a gibt es einen bestimmten String: a[8]. Dieser soll jetzt im @b gesucht werden und der Index vom @b ausgegeben werden: $b[?]. Zusätzlich soll auch der gesuchte String aus dem @b mit ausgegeben werden. Der String kann auch nur einmal vorkommen.

Ich dachte da an:
Code (perl): (dl )

grep $a[8], @b;
Wie nun die Ausgabe des Indexes von b und des gefundenen Strings?

Danke!
- payx
  
  2011-10-11 12:18
  User since
  2006-05-04
  564 articles
  BenutzerIn
  Hallo choff,
  
  Code (perl): (dl )
  
  print grep(/$a[8]/, @b);
  
  Wenn Du den Index aus @b mitausgeben willst, wirst Du wohl eine Schleife benötigen, glaube ich:
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $i (0..$#b) { print "$i: $b[$i]" if $b[$i] eq $a[8]; }
  
  Aber vermutlich fehlt ja wieder jede Menge Hintergrundinformation zur eigentlichen Aufgabe ...
  
  HTH
  Grüße
  payx
  
  PS: Für eine Lösung mit grep und Index und Berücksichtigung der Möglichkeit, dass der gesuchte Werte mehrmals im Array vorkommt, siehe dieses Posting von Taulmarill: msg #62787.
- +2 replies
- pq
  
  2011-10-11 12:46
  User since
  2003-08-04
  12208 articles
  Admin1
  also das mit dem string 'a[8]' und dem grep $a[8] kapiere ich überhaupt nicht. wo ist da der zusammenhang?
  ein string 'a[8]' hat nichts mit einem array a zu tun.
  
  wenn du wirklich nach dem string 'a[8]' suchen willst, dann nimm List::Util::first:
  
  Code (perl): (dl )
  
  my $index = first { $b[ $_ ] eq 'a[8]' } 0 .. $#b;
  
  edit: oder, nach der interpretation von GUIfreund:
  
  Code (perl): (dl )
  
  my $index = first { $b[ $_ ] eq $a[8] } 0 .. $#b;
  
  Last edited: 2011-10-11 14:49:34 +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
  - GUIfreund
    
    2011-10-11 14:00
    
    User since
    2011-08-08
    559 articles
    BenutzerIn
    
    2011-10-11T10:46:35 pq
    also das mit dem string 'a[8]' und dem grep $a[8] kapiere ich überhaupt nicht. wo ist da der zusammenhang?
    ein string 'a[8]' hat nichts mit einem array a zu tun.
    
    Im OP heißt es
    
    2011-10-11T09:40:59 choff
    Im @a gibt es einen bestimmten String: a[8].
    
    Ich interpretiere diesen Satz so:
    Im @a gibt es einen bestimmten String im Element $a[8].
    Dann macht das Nachfolgende durchaus Sinn.
    Gruß
    GUIfreund
- +2 replies
- GUIfreund
  
  2011-10-11 14:48
  User since
  2011-08-08
  559 articles
  BenutzerIn
  2011-10-11T09:40:59 choff
  Im @a gibt es einen bestimmten String: a[8]. Dieser soll jetzt im @b gesucht werden und der Index vom @b ausgegeben werden: $b[?]. Zusätzlich soll auch der gesuchte String aus dem @b mit ausgegeben werden. Der String kann auch nur einmal vorkommen.
  
  Dafür ist first_index gut geeignet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  use List::MoreUtils qw(first_index); my @a; $a[8] = 3; my @b = (5 .. 27); my $idx = first_index {$_ =~ /$a[8]/} @b; print "Index $idx Inhalt $b[$idx]\n" if defined $idx;
  
  Gruß
  GUIfreund
  - choff
    
    2011-10-11 16:17
    
    User since
    2011-10-05
    12 articles
    BenutzerIn
    
    Das funktioniert gut, das werde ich nehmen. Genau ich wollt den Index und den gesuchten String im Array ausgeben.
    
    Die anderen Möglichkeiten funktionieren auch, aber ich habe mcih ejtzt für die von GUIfreund entschieden.
    
    Vielen Dank!

View all threads created 2011-10-11 11:40.