Question

perl 怎么实现换行匹配

一个字符串为如下格式：
xxxxAA
123456
BBxxx

请问要怎么把
AA
123456
BB

提取出来呢？
补充一点，要匹配的字符里面，有可能有多个换行符。

Answer 1

不知道你想把加上换行后的值保存在什么样类型的变量里。

1.结果保存在标量里：
my $str = "hello world";
my $rst = join "\n",split(/ /, $str);
print "$rst";
输出结果：
hello
world

2.结果保存在列表里
my $str = "hello world";
my @rst = map { $_."\n" } split(/ /, $str);
print "$rst[0]";
print "$rst[1]";
输出结果：
hello
world

追问

不是分割，是匹配哈