Teile des Codes auslagern

[Christian Kruse]

Hallo Christian Bliß,

Weil der Ausdruck dynamisch generiert wird, je nach Eingabe.

Es werden Suchbgriffe eingetragen und "verunded".
Bsp:

Eingabe:
"der die das"

if-Ausdruck:
($name =~ m/der/i) and ($name =~ m/die/i) and ($name =~ m/das/i)

sub check {
  my $str   = shift;
  my @terms = @_;

foreach my $term (@terms) {
    return if index($str,$term) == -1;
  }

return 1;
}

Die Funktion oben nimmt einen String und einen Array von Such-Termen
entgegen und prüft für jeden Ausdruck, ob er enthalten ist. Ist einer
nicht enthalten, wird undef zurück gegeben, ansonsten 1.

Grüße,
 CK