Select Code to Download

Select or download this

>>-ACTIVATE--+-DATABASE-+--database-alias----------------------->
             '-DB-------'
...
>--+-------------------------------------+---------------------><
   '-USER--username--+-----------------+-'
                     '-USING--password-'

Select or download this

>>-select-clause--from-clause--+--------------+----------------->
                               '-where-clause-'

>--+-----------------+--+---------------+----------------------><
   '-group-by-clause-'  '-having-clause-'

Select or download this

           .-ALL------.
>>-SELECT--+----------+----------------------------------------->
...
       |             | .-AS-.                  | |
       |             '-+----+--new-column-name-' |
       '-exposed-name.*--------------------------'

Select or download this

rule1: 'ACTIVATE' ('DATABASE' | 'DB') database-alias ('' | 'USER' user
+name ( '' | 'USING' password ) )
rule2: select-clause from-clause ('' | where-clause) ('' | group-by-cl
+ause) ('' | having-clause)
rule3: 'SELECT' ('ALL' | '' | 'DISTINCT') ( '*' | ( expression ( '' | 
+( ('' | 'AS' ) new-column-name ) ) | exposed-name '.*' )(/,/ *) )

Select or download this

rule2: select-clause from-clause where-clause(?) group-by-clause(?) ha
+ving-clause(?)
..

Select or download this

#!/usr/bin/perl
use warnings;
...
# print "Mainline: $mainline\n";

print line2rule($mainline, 0, 0+@{$info[$mainline]}, \@info), "\n";