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

发布时间：2020-12-16 06:17:14 所属栏目：大数据来源：网络整理

导读：我想分割一个具有特定重复模式的字符串,例如： $string = "GGGGG-SOMETHING-ELSE-GGG-LAST"; 至 @array=(-SOMETHING-ELSE-,-LAST); 我的尝试到目前为止是一个perl新手 split(/G{2,}/,$string); 不幸的是,这导致只有GG模式被分割 – 而不是我希望产生2个数组

我想分割一个具有特定重复模式的字符串,例如：

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

至

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

我的尝试到目前为止是一个perl新手

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

不幸的是,这导致只有GG模式被分割 – 而不是我希望产生2个数组元素的贪婪GGGGG或GGG模式.

解决方法

不,这似乎(大部分)按预期工作.以下代码：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!