Perl - Regex只提取以逗号分隔的字符串

Question

我有一个问题，我希望有人可以帮助......

我有一个包含网页内容的变量（使用WWW :: Mechanize抓取）。

该变量包含以下数据：

$var = "ewrfs sdfdsf cat_dog,horse,rabbit,chicken-pig"
$var = "fdsf iiukui aawwe dffg elephant,MOUSE_RAT,spider,lion-tiger hdsfds jdlkf sdf"
$var = "dsadp poids pewqwe ANTELOPE-GIRAFFE,frOG,fish,crab,kangaROO-KOALA sdfdsf hkew"

我从上面的例子中感兴趣的唯一一点是：

@array = ("cat_dog","horse","rabbit","chicken-pig")
@array = ("elephant","MOUSE_RAT","spider","lion-tiger") 
@array = ("ANTELOPE-GIRAFFE","frOG","fish","crab","kangaROO-KOALA")

我遇到的问题：

我试图从变量中仅提取逗号分隔的字符串，然后将它们存储在数组中以供以后使用。

但是，确保我在逗号分隔动物列表的开头（即cat_dog）和结尾（即鸡 - 猪）获得字符串的最佳方法是什么，因为它们没有前缀/后缀逗号。

此外 ，由于变量将包含网页内容，因此不可避免的是，可能还存在逗号立即由空格和另一个单词继承的情况 ，因为这是在段落和句子中使用逗号的正确方法...

例如：

Saturn was long thought to be the only ringed planet, however, this is now known not to be the case. 
                                                     ^        ^
                                                     |        |
                                    note the spaces here and here

我对逗号后跟空格的任何情况都不感兴趣（如上所示）。

我只对逗号之后没有空格的情况感兴趣（即cat_dog，horse，rabbit，chicken-pig）

我尝试了很多方法，但是无法找到构建正则表达式的最佳方法。

Answer 1

怎么样

[^,\s]+(,[^,\s]+)+

它将匹配一个或多个不是空格或逗号的字符[^,\\s]+后跟一个逗号和一个或多个不是空格或逗号的字符，一次或多次。

进一步评论

要匹配多个序列，请添加g修饰符以进行全局匹配。
以下拆分每个匹配$& on a ,并将结果推送到@matches 。

my $str = "sdfds cat_dog,horse,rabbit,chicken-pig then some more pig,duck,goose";
my @matches;

while ($str =~ /[^,\s]+(,[^,\s]+)+/g) {
    push(@matches, split(/,/, $&));
}   

print join("\n",@matches),"\n";

Answer 2

虽然你可以构造一个正则表达式，但是正则表达式， split s， grep和map看起来很不错

my @array = map { split /,/ } grep { !/^,/ && !/,$/ && /,/ } split

从右到左：

1. 拆分空格线（ split ）
2. 只保留两端没有逗号但内部有一个逗号（ grep ）的元素
3. 将每个这样的元素拆分成部分（ map和split ）

这样你就可以轻松更改部件，例如消除两个连续的逗号&& !/,,/在grep添加&& !/,,/ 。

Answer 3

我希望这很清楚，适合您的需求：

 #!/usr/bin/perl
    use warnings;
    use strict;

    my @strs = ("ewrfs sdfdsf cat_dog,horse,rabbit,chicken-pig",
    "fdsf iiukui aawwe dffg elephant,MOUSE_RAT,spider,lion-tiger hdsfds jdlkf sdf", 
     "dsadp poids pewqwe ANTELOPE-GIRAFFE,frOG,fish,crab,kangaROO-KOALA sdfdsf hkew", 
     "Saturn was long thought to be the only ringed planet, however, this is now known not to be the case.",
     "Another sentence, although having commas, should not confuse the regex with this: a,b,c,d");

    my $regex = qr/
                \s #From your examples, it seems as if every
                   #comma separated list is preceded by a space.
                (
                    (?:
                        [^,\s]+ #Now, not a comma or a space for the
                                 #terms of the list

                        ,        #followed by a comma
                    )+
                    [^,\s]+     #followed by one last term of the list
                )
                /x;

    my @matches = map {
                    $_ =~ /$regex/;
                    if ($1) {
                        my $comma_sep_list = $1;
                        [split ',', $comma_sep_list];
                    }
                    else {
                        []
                    }
                } @strs;

Answer 4

$var =~ tr/ //s;    
while ($var =~ /(?<!, )\b[^, ]+(?=,\S)|(?<=,)[^, ]+(?=,)|(?<=\S,)[^, ]+\b(?! ,)/g) {
      push (@arr, $&);
    }

正则表达式匹配三种情况：

(?<!, )\b[^, ]+(?=,\S) : matches cat_dog
(?<=,)[^, ]+(?=,)      : matches horse & rabbit
(?<=\S,)[^, ]+\b(?! ,) : matches chicken-pig