Help for this page

Select Code to Download


  1. or download this
    use strict;
my $sql = <<'--SQL--';
...
$Data::Dumper::Terse = 1;
($\, $,) = ("\n", ",\n");
print map { Dumper $_ } @out;
  2. or download this
    ['WORD','select'],
['WORD','case'],
...
'"',
['WORD','from'],
['WORD','mytable']
  3. or download this
    ['WORD','select'],
['WORD','case'],
...
['DQUOTED','"even tougher"'],
['WORD','from'],
['WORD','mytable']