Help for this page

Select Code to Download


  1. or download this
    > perl -l
$,=$/;
...
wrong:
(?-xism:a)
(?-xism:a\\\@b)
  2. or download this
    > perl -l
$_='root: admin@somewhere.here';
...
__END__
(root:)()
Postmatch contained " admin@somewhere.here"
  3. or download this
    Hardcoded:
/^root:(?!\s*admin\@somewhere\.here)/
...
Variable:
my $admin_email = 'admin@somewhere.here';
/^root:(?!\s*\Q$admin_email\E)/