Perl:子程序输出;输入foreach声明

前端之家收集整理的这篇文章主要介绍了Perl:子程序输出;输入foreach声明前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个子路由,输出一个FQDN列表,由新行分隔:

x1.server.com
s2.sys.com
5a.fdsf.com

^^它采用这种格式,因此除{variable text}之外没有其他模式.{variable text}.{variable text}

我的问题是我如何能够将此输出作为foreach语句的输入,以便我可以遍历每个FQDN?

解决方法

注意:你说子输出一个列表,但我假设你的意思是它输出一个字符串.否则,这个问题没有实际意义.

只需在换行符上拆分输出即可.假设子例程被称为子名称

for my $fqdn (split /\n/,subname())

正如Brian Roach在评论中指出的那样,最佳解决方案是使子例程返回列表而不是字符串.但是,这对您来说可能不是一个可行的解决方案.无论哪种方式,如果您想尝试,只需在子程序中的适当位置添加拆分.例如.:

sub foo {
    ...
    #return $string;
    return split /\n/,string;
}

如果想要高级,可以使用wantarray函数,该函数检测调用子例程的上下文:

sub foo {
    ...
    return $string unless wantarray;
    return split /\n/,string;
}

虽然这很可爱,但除非你知道自己在做什么,否则会导致不必要的行为.

猜你在找的Perl相关文章