string - 从 perl 中的字符串中删除多个新行

Question

我有这样一个字符串:

city: London
Code: 123
address: 1, Napoleon
Phone: 123-123-1232

并且所有行都在一个字符串中，我想打印所有信息，但在一行中带有分隔符。

我试过这段代码:

$val =~ s/\n/\ /;

但什么都没有。

Answer 1

你很接近，你需要修饰符 g

看看这个程序的行为，第二个打印显示你想要什么。

你可以在perlre中看到所有修饰符在 perldoc.perl.org 上。

use strict;
use warnings;

my $val = <<'END';
city: London
Code: 123
address: 1, Napoleon
Phone: 123-123-1232
END

print $val;

$val =~ s/\n/ /g;

print $val;