my %no = map{$_ => 1;} @no;
[/code]
woher kommt das $_ in der Zeile?
map iteriert über einen Array und $_ ist der Alias analog zu foreach
Und was, wenn man es nicht in Perl realisieren möchte? Hatte ja extra "Programmiertechnik" und nicht "Perl" als Thema ausgewählt!
Dann beschreibe dein Vorhaben so, dass es einen programmatischen Ablauf,
nicht eine Implementation, beschreibt.
Hier ist noch ein anderer schlechterer Ansatz
my $no = join '|', @no;
my $ret = grep{ !/^($no)$/ } @in;
mfg Beat
--
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische