Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
Add_key_and_value( $array_of_hashes[0], qw/ James Bond / );

print $array_of_hashes[0]{'James'}, "\n";  # Should print 'Bond'.
  2. or download this
    sub Add_key_and_value {
  $_[0]->{ $_[1] } = $_[2];
}
  3. or download this
    sub Add_key_and_value {
  my( $ref, $key, $value ) = @_;
  $ref->{ $key } = $value;
}