连结而多变量函数返回多个值，而无需使用临时变量

Question

我有一个像

sub multi_return { 
    my ($val1, $val2) = ('',''); 
    #does something 
    return ($val1, $val2); 
} 

的功能有没有一种方法我可以连接都返回与不同字符串变量瓦莱斯，而不必使用临时变量？

my $string1 = 'some text'; 
my $string2 = 'some other text'; 
my ($tmp1,tmp2) = multi_return(); 
$string1 .= $tmp1; 
$string2 .= $tmp2 
undef($tmp1); 
undef($tmp2); 

这不起作用

($string1, $string2) = multi_return(); 

编辑：

更一般地，我在寻找一种方式来连接字符串的两份名单，其中两个列表具有相同的长度。应该将每个列表的相同位置上的字符串连接起来。

我想@ amon的答案的第二部分服务于我的目的。

Answer 1

你问的问题通常是不可能的。然而，我们可以做一些循环抽象了返回值的数量：

my @strings = ("some text", "some other text"); 
my @ret = multi_return; 
$strings[$_] .= $ret[$_] for 0 .. $#strings; 

我们可以写一个子，反过来摘要超过认为：

sub append_all { 
    my $suffixes = shift; 
    $_ .= shift @$suffixes for @_; # uses aliasing behaviour to modify out-args 
} 

my $string1 = "some text"; 
my $string2 = "some other text"; 

append_all([multi_return()] => $string1, $string2); 

Answer 2

我觉得你这个得太多。为什么不把字符串传递给子例程，在里面连接，然后为它们分配返回值？就像这样：

my $str1 = "foo"; 
my $str2 = "bar"; 
my @args = qw(something else you need); 

($str1, $str2) = multi_return($str1, $str2, @args); 
# $str1 == "foosomething"; 
# $str2 == "barsomething else" 

sub multi_return { 
    my ($str1, $str2, @args) = @_; 
    $str1 .= "something"; 
    $str2 .= "something else"; 
    .... # etc 
    return ($str1, $str2); 
} 

在一个相关的说明，您的代码：

my $string1 = 'some text'; 
my $string2 = 'some other text'; 
my ($tmp1,tmp2) = multi_return(); 
$string1 .= $tmp1; 
$string2 .= $tmp2 
undef($tmp1); 
undef($tmp2); 

不如这样写的：

my $string1 = 'some text'; 
my $string2 = 'some other text'; 
{ 
    my ($tmp1, $tmp2) = multi_return(); 
    $string1 .= $tmp1; 
    $string2 .= $tmp2; 
} 

词法变量限于它们被定义的范围，在这种情况下，我们放置在周围的块。使用你的代码，变量$tmp1和$tmp2仍然在范围内，他们可能会搞砸了。

Answer 3

你可以在一个块中声明的临时变量，使它们不提供给代码

my $string1 = 'some text'; 
my $string2 = 'some other text'; 
{ 
    my ($tmp1,tmp2) = multi_return(); 
    $string1 .= $tmp1; 
    $string2 .= $tmp2 
}