使用perl拆分数组

时间:2013-06-14 07:22:38

标签: arrays perl split

这是我的数组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拆分为分隔符,我也需要保留分隔符。代码有什么问题?

3 个答案:

答案 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;