Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  /\G\s*\w+/gc || error 'missing table name';
  /\G\s*where[^);]*/gc; # optional
  }
  2. or download this
    ORIGINAL:

...
    (select G format \"%s|\", H format \"%s|\" from AA where ID = Z) f
+rom BB where ID2 = X),
      I format \"%s|\", J format \"%s|\"
        from CC;