Help for this page

Select Code to Download


  1. or download this
    @Zonelist = ("@WGLZAL","@WGLZAU","@WGLZBL","@WGLZBU",
               "@WGLZCL","@WGLZCU","@WGLZDL","@WGLZDU");
  2. or download this
    my %zonelist;
foreach my $zone ('AA'..'ZZ') {
    my $key = 'WGLZ' . $zone;
    $zonelist{$key} = [ 'TRUE', 'FALSE' ];
}
  3. or download this
    my %zonelist = map { 'WGLZ' . $_, ['TRUE','FALSE'] } ( 'AA' .. 'ZZ' );
  4. or download this
    NUMERIC | VAL1  | VAL2
--------+-------+---------
...
--------+-------+---------
  3     | TRUE  | TRUE 
--------^-------^---------