Perl hash negation

Question

Помогите мне исправить фрагмент кода.

Я хочу указать сервер типа eq xyz, но не с namedservers.

our %SERVERS = (
    "rajesh1" => {type => 'xyz', sha => 'ram'}, 
    "rajesh2" => {type => 'xyz', sha => 'sita'}, 
    "rajesh3" => {type => 'xyz', named => ["raa"]}, 
    "rajesh4" => {type => 'xxx', named => ["rajjaj"]}, 
); 

while (my $mServer = each(%SERVERS)) 
{ 
    if ("$SERVERS{$mServer}{type}" eq "xyz" && !"$SERVERS{$mServer}{named}") 
    { 
    print "Name of the server is $mServer\n";   
    } 
} 

Ожидаемый результат:

rajesh1 
rajesh2

Answer 1

1. Вам не хватает точки с запятой после определения %SERVERS.
2. Вы начинаете называть его $mServer, а затем говорят $gServer. Выбери один!
3. Избавьтесь от кавычек вокруг $SERVERS{$mServer}{type} и $SERVERS{$mServer}{named} (как только вы изменили gServer к mServer -вым их не нужны.
4. Вы ожидаете увидеть «rajesh1 rajesh2», но ни один из них не имеет типа "prod". Как возможно ли это? Предположим, что вы изменить свой тип на "prod" ...
5. вы ожидаете увидеть «rajesh1 rajesh2», но при печати "Name of the server is $mServer\n" (после изменения gServer к mServer). Изменение, что только "$mServer\n" и ...
6. ... это должен работать.

Следовательно:

our %SERVERS = (
    "rajesh1" => {type => 'prod', sha => 'ram'}, 
    "rajesh2" => {type => 'prod', sha => 'sita'}, 
    "rajesh3" => {type => 'xyz', named => ["raa"]}, 
    "rajesh4" => {type => 'xxx', named => ["rajjaj"]}, 
); 

while (my $mServer = each %SERVERS) { 
    if ($SERVERS{$mServer}{type} eq "prod" && !$SERVERS{$mServer}{named}) { 
     print "$mServer\n"; 
    } 
} 

Тогда:

$ perl test.pl 
rajesh1 
rajesh2 
$ 

Answer 2

Вы ищете defined.

if ($SERVERS{$mServer}->{type} eq "xyz" && 
    ! defined $SERVERS{$mServer}->{named}) 
... 

Вы использовали неопределенную переменную $gServer, где, очевидно, вы имели в виду использовать переменную $mServer цикла. Вы должны use strict; use warnings; во всех своих сценариях; что позволяет легко поймать эту ошибку (и множество других).

Я использую оператор косвенности -> для доступа к содержимому хеш-ссылок в качестве предпочтительного. Я также удалил некоторые безвозмездные цитаты как стилистические изменения.

Answer 3

Полная выборка, ловя и возвращаемых значений each «s, что уменьшает визуальный беспорядок:

use strict; 
use warnings; 

our %SERVERS = (
    "rajesh1" => {type => 'xyz', sha => 'ram'}, 
    "rajesh2" => {type => 'xyz', sha => 'sita'}, 
    "rajesh3" => {type => 'xyz', named => ["raa"]}, 
    "rajesh4" => {type => 'xxx', named => ["rajjaj"]}, 
    "rajesh5" => {type => 'prod', sha => 'ram'}, 
    "rajesh6" => {type => 'prod', named => ["jajaja"]}, 
); 

while (my($mServer, $mData) = each %SERVERS) { 
    if ($mData->{type} eq "prod" && !$mData->{named}) { 
     print "Name of the server is $mServer\n"; 
    } 
}