Hi,
Please, Check my comments below.
On 8/19/12, jet speed <speedj...@googlemail.com> wrote:
> Hi All,
>
> Is there a way to find matching array elements from hash.
>
> ex:
>
> @names = ( abc. def. ghi, jky; );
The above should be @names=("abc","def","ghi","jky");
OR
@names=qw(abc def ghi jky); OR other variant but what you have written.
>
> %stud = (
> " abc" =>" 34",
> "nba" =>"99",
> "def" =>"24",
> "ghi"=> "33");
You really don't on most cases what to quote the keys in the hash,
since you are using the FAT arrow, which already does that, except for
some few cases.
So, you have this:
my %stud = (
abc => "34",
nba => "99",
def => "24",
ghi => "33"
);
> How can i go throught each elements of has %stud and print the matching
> array value in this case
>
You can use smart-match "~~" with a foreach loop, like so:
use warnings;
use strict;
my @names = qw(abc def ghi jky);
my %stud = (
abc => "34",
nba => "99",
def => "24",
ghi => "33",
);
foreach my $match_value ( sort keys %stud ) {
print $match_value, "=", $stud{$match_value},
$/ if $match_value ~~ @names;
}
__END__
abc=34
def=24
ghi=33
Warning: Though it might not be so effective if you have to loop
through a long data list. You might take a look at the the function
first in module List::Util.
> abc =34
> def=24
>
ghi=33 will also match.
Hope this helps.
> Thanks
> Sj
>
--
Tim
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
