为什么打印在使用和不使用换行时会产生不同的输出？

Question

在正则表达式匹配的print语句中，我得到两个不同的结果，并且没有换行字符。为什么？

$string16="abfoo bcfooo defooo ghfooo ijfoo klfooo mnfooo"; 
@foo=$string16=~ m/foo/g; 
print(@foo); 
print("\n"); 

$string17="abfoo bcfooo defooo ghfooo ijfoo klfooo mnfooo"; 
@foo=$string17=~ m/foo/g; 
print(@foo."\n"); 

结果：

foofoofoofoofoofoofoo 
7 

Answer 1

因为你正在使用的连接符.，这迫使@foo到标量上下文。数组返回标量上下文中元素的数量。

使用参数列表而不是与您的print连接来获取列表和换行符。数组@foo将被扩展到它包含的列表，所以换行符只是print的另一个参数。

print @foo, "\n"; 

作为替代方案，你可以使用say，这需要与use feature 'say'被激活。它消除了在打印时添加换行符的需要。 Perl 5.10提供了say。

use feature 'say'; 
say @foo; 

您还可以

use v5.10; 

打开它这有什么好做的正则表达式。这是Perl的核心行为，以及Perl中的列表如何工作。

Here's a good explanation什么语境意味着在Perl中。