Perl：如何将文本附加到标量答案

【问题标题】：Perl: How to append text to a scalarPerl：如何将文本附加到标量
【发布时间】：2013-10-14 21:15:26
【问题描述】：

我在 Perl 中有一个子例程，它将读取一个散列并打印出散列中的所有键值对。但是，我需要将结果添加到一个标量，然后在最后返回带有组合结果的标量，而不是通过 foreach 循环并在每次它有键时打印。

我记得在 Java 中您可以轻松地向变量添加额外的文本，但我不确定如何在 Perl 中执行此操作。

有什么想法吗？我将在下面添加我的打印代码，但我基本上想把它添加到一个标量并在最后返回组合的标量（比如说$output）

sub printSongs
{
    print "Song Database\n\n";
    foreach $key (keys %songList)
    {
       print "Song Title: $key ---- Duration: $songList{$key}\n";
    }
}

PS：我试图搜索这个答案，因为它应该相对简单，但找不到任何东西。不确定 append 是否是最好的词。

【问题讨论】：

查看这个 PerlMonks 页面：How do I concatenate a string?
啊！连接是恰当的术语。谢谢！
我很高兴地报告在search.perlhacks.com 搜索“将文本附加到标量”得到了一个有用的答案:-)

标签： perl return append add scalar

【解决方案1】：

Perl 中的连接运算符是.。您也可以将其与.= 的作业结合使用。

【讨论】：

【解决方案2】：

sub printSongs
{
    print "Song Database\n\n";

    foreach $key (keys %songList)
      {

       $something_combined = $something_combined . 
           "Song Title: $key ---- Duration: $songList{$key}\n";
      }

   print $something_combined;  

 }

您可以轻松地将任何内容附加到带有句号字符的变量中。

例如： $something = "Something" 。 $somevar 。 “别的东西”。 “等”；

在 Java 中，您通常使用 + 来连接字符串。在 Perl 中，您可以使用 .

【讨论】：