Das suchende CGI-Skript V

email.pl

my @keys = (); foreach my $key (split /\s/, $key) { if (defined $keyword{$key}) { push(@keys, $key); } else { @keys = (); last; } } if (@keys == 0) { @names = (); } else { my %names = (); foreach my $key (@keys) { foreach my $name (split /:/, $keyword{$key}) { if (defined $names{$name}) { $names{$name} ++; } else { $names{$name} = 1; } } } @names = (); foreach my $name (keys %names) { push(@names, $name) if $names{$name} == @keys; } }

Dieser Programmtext filtert alle vollständigen Namen heraus, die eine Obermenge der angegebenen Namensteile bilden.