Help for this page
my $db_hash = do { no strict 'refs'; \%$DB_name }; while (($key,$value) = each %$db_hash) { print "\tKey :: $key\n" ; print "\tValue :: $value\n" ; }
... my %DBHashLookup = ( ... ... while (($key,$value) = each %$DB_hash) { ...
$param_no = scalar @ARGV ; # ... print "\tValue :: $value\n" ; } #
www.com | www.net | www.org
No recent polls found