哈希问题求助

jiangphoenix

谢谢！！！回复 10# sunzhiguolu


   

kris1245

#! /usr/bin/perl

use strict;

my %a = (
    'a' => '1',
    'b' => '2',
    'c' => '3',
    'd' => '4'
    );

my %b = (
    'a' => 'Adam',
    'c' => 'Cate',
    'e' => 'Eva',
    'l' => 'Lily'
    );

foreach my $a (reverse keys %a) {
     if(exists $b{$a}) {
print "$b{$a}\n";
    }
}