Der folgende Beitrag wurde am 27. 01. 2009, 11:27 Uhr von wblock veröffentlicht.
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";
Der folgende Beitrag wurde am 27. 01. 2009, 11:40 Uhr von hotti veröffentlicht.
hi,
Dein Script gibt aus:
cite:
/^Matthew/ || /^Alexander/ || /^Andrew
Jacob
6
:cite
also funktioniert das auch.
Hotte
--
Wenn der Kommentar nicht zum Code passt, kann auch der Code falsch sein.
Der folgende Beitrag wurde am 27. 01. 2009, 11:52 Uhr von wblock veröffentlicht.
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
> @
Der folgende Beitrag wurde am 27. 01. 2009, 12:57 Uhr von wblock veröffentlicht.
ich weiss wies geht....:-)
so gehts....
my @grepNames = grep( eval $search, @myNames);
Danke an alle.
© 1998-2013 SELFHTMLImpressumSoftware: Classic Forum 3.4
