Help for this page

Select Code to Download


  1. or download this
    my $sql = do {local $/; <>};
$sql =~ s/\( ([^()]+) \) , \n\)/($1)\n)/x;
print $sql;
  2. or download this
    C:\Users\...>perl -i.bak chop-sql-comma.pl CUSTOMER_NEW.txt
  3. or download this
    perl -Mv5.14.0 -i.bak -e^
 "local $/;print <> =~ s/\( ([^()]+) \) , \n\)/($1)\n)/xr"^
  CUSTOMER_NEW.txt