Re: don't get bit by split.

[akm2]

I've ask about about this before, I know (sorry but I need to do it again). I don't understand how to rewrite the code to store only the index number of the matching @names elements in </code>@matches</code>.

below is the current code.

sub search {
    my $terms = shift;
    my $pattern = join "|", split " ", $terms;
    my $case = $FORM{case} eq 'insensitive'?"(?i)":"";
    $pattern = qr/$case$pattern/;
    my @matches = grep { /$pattern/ } @names;
    return \@matches;
}

Can somebody educate me, please.

[runrig]

Instead of this:

my @matches = grep { /$pattern/ } @names;

this will get just the indexes:

my @matches = grep { $names[$_] =~ /$pattern/ } 0..$#names;

[davorg]

Replace your grep line with this:

my @matches = grep { $names[$i] =~ /$pattern/ } 0 .. $#names;

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me