Help for this page

Select Code to Download


  1. or download this
    use strict;

my @a = qw(a b c d e f);
...
@hash{@a} = @n;

print "$hash{a} $hash{e}\n\n";
  2. or download this
    jptxs:/home/jptxs $ perl -w 2arrayHash
1 5

jptxs:/home/jptxs $