如何在断开foreach循环后重新启动“do-while”循环？

Question

我的配置脚本中有一小段代码，想法是配置被加载，然后检查每个键是否已输入主机名。但是，如果发现某个配置包含相同的主机名，则它将被拒绝并显示一条警告消息，指出该主机名的配置已存在。

问题是我需要foreach循环检查散列键的存在以重新启动do-while循环，以便可以尝试另一个主机名，或者用户可以将^C排除在脚本之外。

这是摘录;

my $host; 
do { 
    print "Enter the hostname or IP of the ESXi server: "; 
    chomp($host = <STDIN>); 

    if ($host eq '') { 
     print "You must enter a hostname or IP address!\n"; 
    } elsif ($host ne '') { 

     # We need to catch duplicate configurations for we don't do the same work twice 
     foreach (keys %config) { 
      if ($config{$_}{host} ne $host) { 
       last; 
      } elsif ($config{$_}{host} eq $host) { 
       warn "Configuration for $host already exists!\n"; 
      } 
     } 

     if ($ping_obj->ping($host)) { 
      $config{$config_tag}{host} = $host; 
     } elsif (! $ping_obj->ping($host)) { 
      print RED . "Ping test for \'$host\' failed" . RESET . "\n"; 
     } 

     $ping_obj->close(); 
    } 
} while ($config{$config_tag}{host} eq 'undef'); 

这就是模板哈希的样子。

my %template = (
    host => 'undef', 
    port => 'undef', 
    login => { 
     user => 'undef', 
     password => 'undef', 
    }, 
    options => { 
     snapshots => "0", 
     compress => "0", 

     # This is expressed as an array 
     exclude => 'undef', 
    }, 
); 

Answer 1

如果在Perl中有一个goto LABEL语句的用法，就是这样。

do { 
    START:  # could also go right before the "do" 
    ... 
    if (...) { 
     warn "Configuration exists. Start over.\n"; 
     goto START; 
    } 
} while (...); 

Answer 2

我不知道你为什么要使用do ... while，当while看起来更自然。

一些注意事项：

• 你并不需要仔细检查您的if语句。如果例如$host eq ''为真，那么$host ne ''必须为假。每个定义。
• 如果你不打算在循环外部使用$host，我假设你不是 ，因为你将它存储在散列中，所以你应该在循环内部放置my $host来限制范围。

一些提示：

• 您可以使用redo重新启动循环。
• 您可以使用smart matching来取消for循环。

---

while ($config{$config_tag}{host} eq 'undef') { 
    print "Enter the hostname or IP of the ESXi server: "; 
    chomp(my $host = <STDIN>); 
    if ($host eq '') { 
     print "You must enter a hostname or IP address!\n"; 
     redo; 
    } else { 
     # We need to catch duplicate configurations 
     my @host_list = map { $_->{host} } values %config 
     if ($host ~~ @host_list) { 
      warn "Configuration for $host already exists!\n"; 
      redo; 
     } 
    } 
    if ($ping_obj->ping($host)) { 
     $config{$config_tag}{host} = $host; 
    } else { 
     print RED . "Ping test for \'$host\' failed" . RESET . "\n"; 
    } 
    $ping_obj->close(); 
} 

Answer 3

为什么你有3个elsif S其中一个简单的else会做什么？
我的意思是，他们只测试相关的if测试的完全相反。

if ($host eq '') { 
    ... 
} elsif ($host ne '') { 
    ... 
} 

if ($config{$_}{host} ne $host) { 
    ... 
} elsif ($config{$_}{host} eq $host) { 
    ... 
} 

if ($ping_obj->ping($host)) { 
    ... 
} elsif (! $ping_obj->ping($host)) { 
    ... 
} 

---

我会用一个正常的while循环，而不是do{...}while(...)循环。

do{ 
    RESTART: 
    if(...){ 
    goto RESTART; 
    } 
}while(...); 

VS

while(...){ 
    if(...){ 
    redo; 
    } 
} 

---

在这个循环中，您只使用%config的钥匙，找到关联的值，那么你为什么不使用values %config代替。

foreach (keys %config) { 
    if ($config{$_}{host} ne $host) { 
     last; 
    } elsif ($config{$_}{host} eq $host) { 
     warn "Configuration for $host already exists!\n"; 
    } 
} 

VS

for(values %config){ 
    if($_->{host} ne $host){ 
    ... 
    } else { 
    ... 
    } 
} 

如果您使用5.10.0或更高版本，你可以使用一个smart match (~~)相反，这将使你测试更清楚什么。

my @hosts = map{ $_->{host} } values %config; 
if($host ~~ @hosts){ 
    ... 
}