Regex 鸡蛋

假设：

my $s1='A "sentence" ... is a concatination of nondelimiters followed by delimiters,
        followed by nondelimiters, followed by delimiters, ...';

或

我尝试使用标量$d中设置的分隔符，通过regexp将其拆分为列表@a：

my $d = ' ,."'; # delimiter set
my @a = $s1 =~ /([^$d]+)([$d]+)/g; # gives |A| "|sentence|" ... |is| |a| |...

在第二种情况下，关于的句子可以使用

my @a = $s2 =~ /([$d]+)([^$d]+)/g; # gives |"|A| "|sentence|" ... |is| |a|...

---

如何用一个regexp处理这两种情况？需要帮助-请。

您需要一个连续的分隔符块或非分隔符块。只用

$s =~ /([$d]+|[^$d]+)/g;

---

这不起作用：my@a=$s=~/（[^$d]+）（[$d]+）|（[$d]+）（[^$d]+）/g；太好了，这就是我一直在寻找的——它工作得非常好。谢谢你，乔洛巴。

$s =~ /([$d]+|[^$d]+)/g;