linux-l: wiedermal perl

[Ulrich Wiederhold]

* Volker Kroll <volker.kroll at 4mino.de> [011029 16:36]:
> On Mon, Oct 29, 2001 at 04:08:39PM +0100, Ulrich Wiederhold wrote:
> Schau Dir mal 
> perldoc -f grep 
> an. Das müßte das erledigen, was Du brauchst.

Also folgende Lösung matched immer nur die erste Variable in @search,
also $search[0]. Die anderen werden nicht beachtet.

  foreach my $key (keys %locator_hash) {
      if (grep(/@search/,$key)) {
         push (@result, $locator_hash{$key});
      }
   }

Uli

-- 
'The box said, 'Requires Windows 95 or better', so i installed Linux - TKK 5