Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

    print qq{ format \\"\%s|\\"} if $part =~ /\w/;
}
  2. or download this
    select A format \"%s|\", B format \"%s|\", C format \"%s|\",
  (select D format \"%s|\", E format \"%s|\", F format \"%s|\",
    (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;