perl:使用换行符分割字符串

Question

我想用换行符分割字符串的单词.

我试过了 :

 $string = 'One Two Three';
 my @array3 = split("\n",$string);

我希望输出像:

One
Two 
Three

这可以不使用for循环吗？

Answer 1

你想使用这个split功能,拆分$string空间的区域(" "是特殊的).然后获取生成的列表,join并使用换行符"\n".

my $string = 'One Two Three';
my $output = join "\n", split " ", $string;

(查看http://ideone.com/Sd0Wp执行)

在您的代码中,您将字符串拆分为换行符.当然,这只返回一个值,因为没有换行符.

Answer 2

您不需要使用拆分连接来执行此任务.
只需使用正则表达式将所有空格替换为换行符.

$string = 'One Two Three';
$string =~ s/\s/\n/g;
print $string;