in reply to specific array in hash of arrays
#!/usr/bin/perl use strict; my %hoa = ( "arraya" => [ "dd1", "dd2", "dd3", "dd4" ], "arrayb" => [ "gg1", "gg2", "gg3", "gg4" ], "arrayc" => [ "cc1", "cc2", "cc3", "cc4" ] ); my $input = <STDIN>; chomp $input; if ((exists $hoa{$input}) and $input eq (@{$hoa{arraya}})) { print (@{$hoa{arraya}}); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: specific array in hash of arrays
by ikegami (Patriarch) on Oct 09, 2008 at 10:55 UTC | |
by gone2015 (Deacon) on Oct 09, 2008 at 13:54 UTC | |
by ikegami (Patriarch) on Oct 09, 2008 at 14:11 UTC | |
by gone2015 (Deacon) on Oct 09, 2008 at 15:01 UTC | |
by ikegami (Patriarch) on Oct 09, 2008 at 15:21 UTC | |
by kwn (Novice) on Oct 09, 2008 at 11:23 UTC | |
|
Re^2: specific array in hash of arrays
by moritz (Cardinal) on Oct 09, 2008 at 10:35 UTC | |
by kwn (Novice) on Oct 09, 2008 at 11:18 UTC | |
by moritz (Cardinal) on Oct 09, 2008 at 11:27 UTC |