perl grep problem ...

[wblock]

Hallo an alle ....

Mein versuch ist es eine dynamische Suchliste zu erstellen und sie
grep zu übergeben. Funktioniert leider nicht.
Hat jemand eine Idee, wie sowas geht?

my @myNames = ('Jacob', 'Michael', 'Joshua', 'Matthew', 'Alexander', 'Andrew');

my $Names="Jacob,Michael,Joshua,Matthew,Alexander,Andrew";

my $search="";

my @ListCriterion = split(/,/, $Names);

my $a=3;

while ($ListCriterion[$a]){
$search=$search."/^".$ListCriterion[$a];
if ($a ne @ListCriterion -1) {$search=$search."/ || ";}
$a++;
}

print $search."\n";

#************** Und hier das Problem *********
my @grepNames = grep( $search, @myNames);
#*********************************************

print $grepNames[0]."\n";
print @grepNames."\n";

[hotti]

hi,

Dein Script gibt aus:

cite:
/^Matthew/ || /^Alexander/ || /^Andrew
Jacob
6
:cite

also funktioniert das auch.

Hotte

[wblock]

hi
Jacob ist aber nicht /^Matthew/ || /^Alexander/ || /^Andrew ;-)

hi,

Dein Script gibt aus:

cite:
/^Matthew/ || /^Alexander/ || /^Andrew
Jacob
6
:cite

also funktioniert das auch.

Hotte

[wblock]

ich weiss wies geht....:-)
so gehts....
my @grepNames = grep( eval $search, @myNames);

Danke an alle.