Re: Passing hashes as arguments to a sub?

[eff_i_g]

I'm not familiar with Params::Validate that was mentioned; however, there is a simple example of being strict with hash keys in "Perl Medic." It goes something like this:

sub name {
  # this puts the passed list into a hash
  my %arg = @_;
  # this transfers values to variables and removes the keys
  my ($key1, $key2) = delete @arg{qw(key1 key2)};
  # this determines if any keys are leftover
  croak 'Illegal arguments' if %arg;
}

[leocharre]

#make hash
my %junk = (
  one=>'123123',
  two=>'dsf4f3'
)

# send reference
&printvals(\%junk);

sub printvals {
  my $junk=$_[0];
  #dereference these guys
  print $$junk{one} . $$junk{two};
}