Help for this page

Select Code to Download


  1. or download this
    $query =~ s/[\n\r\f]+/ /g;
  2. or download this
    $query =~ s/(["']).*?\1/S/g;
  3. or download this
    $query =~ s/"[^"]*"/S/g;
$query =~ s/'[^']*'/S/g;
  4. or download this
    $query =~ s{
             \b(in|values?)\s*\(\s*([NS])\s*,[^\)]*\)
           }
           {$1($2+)}gx;
  5. or download this
    $query =~ s{
             \b(in|values?) *\( *([NS]) *,[^\)]*\)
           }
           {$1($2+)}gx;