|
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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |