perl - 拆分字符串并在 for 循环中执行 sub

Question

我是 Perl 新手。我有这样的字符串

my $http_origin_servers_list = "abc:2220,cde:40111,efg:45643";

我有一个名为 like 的子

executeCommand($host);

我想将$http_origin_servers_list转换成数组

my @values = ("abc:2220", "cde:40111", "efg:45643");

然后用每个值依次调用executeCommand

executeCommand("abc:2220");

Answer 1

从技术上讲，你要求

my @hosts = split /,/, $http_origin_servers_list;
for my $host (@hosts) {
    executeCommand($host);
}

但您可以跳过创建数组。

for my $host (split /,/, $http_origin_servers_list) {
    executeCommand($host);
}

如果您愿意，可以写得更简洁。

executeCommand($_) for split /,/, $http_origin_servers_list;