Perl 以最有效的方式在重复模式上拆分字符串？

Question

我想拆分具有特定重复模式的字符串，例如:

$string = "GGGGG-SOMETHING-ELSE-GGG-LAST";

到

@array=(-SOMETHING-ELSE-,-LAST);

我作为 perl 新手的尝试

split(/G{2,}/,$string);

不幸的是，这导致只有 GG 的模式被拆分 - 而不是我希望产生 2 个数组元素的贪婪的 GGGGG 或 GGG 模式。

Answer 1

不，这似乎(大部分)按预期工作。以下代码:

use strict;
use warnings;

$_="GGGGG-SOMETHING-ELSE-GGG-LAST";
my @a=split(/G{2,}/,$_);
print join(",",@a) . "\n";

产生输出:

,-SOMETHING-ELSE-,-LAST

问题是第一个元素是空字符串。因此，要解决此问题，您可以执行以下操作:

use strict;
use warnings;

$_="GGGGG-SOMETHING-ELSE-GGG-LAST";
my @a=grep{$_ ne ""}(split(/G{2,}/,$_));
print join(",",@a) . "\n";

这会产生你想要的:

-SOMETHING-ELSE-,-LAST