Regex als Parameter

[Skeeve]

Moin!

Sorry! Da fehlte noch was!

Moin!

sub machwas {
  my $regex = shift;
  ...

$text =~ /$regex/;

}

machwas(qr/abcd/);
machwas(qr/(?i)def/);

-- Skeeve

-- Skeeve