Help for this page

Select Code to Download


  1. or download this
    my %zone;
foreach my $name (AA..ZZ) {
   $zone{$name} = [ qw|FALSE FALSE| ];
}
  2. or download this
    my ($flag0, $flag1) = @{ $zone{fo} };
# or
my $flag0 = $zone{fo}[0];
my $flag1 = $zone{fo}[1];