Question

你能帮我校正代码片段吗?

我要列出类型为eq xyz 但不使用名称服务器的服务器。

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
";        
  }
}

预期成果:

rajesh1
rajesh2

Answer 1

You re missing a semicolon after the definition of %SERVERS.
You start calling it $mServer, then later say $gServer. Pick one!
Get rid of the quotes around $SERVERS{$mServer}{type} and $SERVERS{$mServer}{named} (once you ve changed gServer to mServer—you don t need them.
You expect to see "rajesh1 rajesh2", but none of them have type "prod". How is that possible? Assuming you change their type to "prod" …
You expect to see "rajesh1 rajesh2", but you print "Name of the server is $mServer " (once you change gServer to mServer). Changing that to just "$mServer ", and …
… it should work.

因此:

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
";
    }
}

然后:

$ perl test.pl 
rajesh1
rajesh2
$

Answer 2

完整样本, 捕捉两个 ach 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
";
    }
}

Answer 3

您正在寻找定义的 < code> 。

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

您正在使用一个未定义的变量 $gServer , 其中您显然打算使用循环变量 $mServer 。您应该严格使用 ; 在所有脚本中使用警告; ; 从而很容易抓住这个错误( 以及一连串其他错误 ) 。

我使用间接运算符 - gt; 访问散列引用的内容,作为首选。我还删除了一些无谓引用,作为文字学上的改变。

友情链接