Help for this page

Select Code to Download


  1. or download this
     ...
 my %HoA;
 push @{ $HoA{ $_->{TABLE_TYPE} } },
               $_->{TABLE_NAME}  for values %HoH;
 ...
  2. or download this
     ...
 for( values %HoA ) { $_ = $_->[0] if @$_ == 1 }
 ...