Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Experts,

I am storing some database column names in hash and based on the parameter passed with perl script i need to selecr the particular hash

Example:

test.pl A, the hash to be selected is @COL_CHECK_A and if its B, we need to select @COL_CHECK_B

my @hash;
my @field;
my @COL_CHECK_A = qw( NAME CITY STATE );
my @COL_CHECK_B = qw( NAME CITY STATE COUNTY );
my @COL_CHECK_C = qw( NAME AGE STATE COUNTY );
my @COL_CHECK_D = qw( NAME AGE CITY STATE COUNTY );
my @COL_CHECK_E = qw( NAME AGE DESIGNATION CITY STATE COUNTY );

[download]
foreach my $key (@COL_CHECK_$ARGV[0]) {
push( @field, $hash{$key} );
}

[download]

Any suggestions please.

Replies are listed 'Best First'.
Re: Help on Hashes
by hdb (Monsignor) on May 14, 2014 at 07:35 UTC

    It is better to store your data in a hash of array (references) like this: 

    use strict;
use warnings;

my %COL_CHECK = ( A => [ qw( NAME CITY STATE ) ],
          B => [ qw( NAME CITY STATE COUNTY ) ],
          C => [ qw( NAME AGE STATE COUNTY ) ],
          D => [ qw( NAME AGE CITY STATE COUNTY ) ],
          E => [ qw( NAME AGE DESIGNATION CITY STATE COUNTY ) ] );

for my $key (@{$COL_CHECK{$ARGV[0]}}) {
    print "$key\n";
}

    [download]
[reply]
[d/l]
Re: Help on Hashes
by muba (Priest) on May 15, 2014 at 15:33 UTC

    You seem to have confused arrays and hashes. Arrays don't have keys.(edit: irrelevant, I misread your code).

[reply]

Back to Seekers of Perl Wisdom