Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my @filtered = grep { /exception:/g && !/\Gtex/ } @strings;
    print Dumper(\@filtered);
}
  2. or download this
    $VAR1 = [
          'exception:mex',
...
          'exception:mex'
        ];
$VAR1 = [];
  3. or download this
    use strict;
use warnings;
...
    my @filtered = grep { pos = 0; /exception:/g && !/\Gtex/ } @string
+s;
    print Dumper(\@filtered);
}
  4. or download this
    $VAR1 = [
          'exception:mex',
...
          'exception:mex',
          'exception:mex'
        ];