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.

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;