这是我的数组buff,我按如下方式存储了数组的内容:
$buff[0]="3\nHi how are u I am f";
$buff[1]="ine\n The world is so";
$buff[2]="beautiful.\n";
$buff[3]="I love it.";
我想拆分数组并打印为
3
Hi how are u I am fine
The world is so beautiful.
I love it.
我如何做到这一点?我尝试使用split
这样的函数:
my @split_buff=split('\n', @buff);
foreach my $val (@split_buff) {
print $val;
}
但是我无法将\n
拆分为分隔符,我也需要保留分隔符。代码有什么问题?
答案 0 :(得分:4)
我认为你可以简单地print
。
print @buff;
答案 1 :(得分:2)
加入所有人并按\n\s*
my @split_buff = split /\n\s*/, join "", @buff;
foreach my $val (@split_buff) {
print "$val\n";
}
答案 2 :(得分:0)
我喜欢回答:“print @buff;”。您也可以尝试以下代码:
$text = ""; # or my $text;
foreach $line (@buff) { $text = $text . "$line"; }
print $text;