【Perl】defined与exists

Perl中defined用来判断一个变量是不是undef，也就是知道有这个变量但不知道它是不是undef；exists用来判断一个hash中的键是否存在。键存在但有可能是undef。

#!/usr/bin/perl -w
use strict;

my $a;
my $b="";
my $c=1;
print "a okn" if defined $a;
print "b okn" if defined $b;
print "c okn" if defined $c;
#print "a existsn" if exists $a;

my %hash = (
            'aa' => 'aaaa',);
if(exists $hash{'aa'}){
    print "aa existsn";
}else{
    print "aa doesn't existsn";
}

my $vv = undef;
my %hash;
$hash{111} = $vv;

print (exists $hash{111} ? "okn" : "Oopsn");
print (defined $hash{111} ? "okn" : "Oopsn");