Regex als Parameter

[Skeeve]

Moin!

sub machwas {
  my $regex = shift;
  ...
  $text =~ $regex;
}

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

-- Skeeve