Advertisement
Guest User

Untitled

a guest
May 24th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.43 KB | None | 0 0
  1.                                 $condition = join " $operand $line_sep" ,
  2.                                         map { "$not match(      replaceRegexpAll($cmp_expression, \'(^|\\\\s)-\\\\S*\', \'\'),
  3.                                                                                replaceRegexpAll(\'$_\', \'([\\\\+\\\\!\\\\?\\\\*\\\\\"\\\\[\\\\]])\', \'\\\\\\\\\\\\1\') )" }
  4.                                                 @$val;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement