Проверка существования хеш-ключа создает ключ

Учитывая следующий код

#!/usr/bin/perl

use Data::Dumper;

my %hash;
my @colos = qw(ac4 ch1 ir2 ird kr3);

foreach my $colo (@colos) {
    if(exists $hash{output}{$colo}) {
        print "$colo is in the hash\n";
    }
}

print Dumper(\%hash);

У меня есть пустой хэш, который создан. У меня есть массив с несколькими сокращениями. Если я просматриваю массив, чтобы увидеть, есть ли эти ребята в хеше, ничего не отображается в STDOUT, что ожидается, но по какой-то причине создается $hash{output}. не имеет смысла. Все, что я делаю, это если существует. Где я ошибся?

6
задан gdanko 20 March 2012 в 15:04
поделиться