如何从Perl中的逗号分隔字符串中提取单词？

Question

我有一句台词：

$myline = 'ca,cb,cc,cd,ce'; 

我需要匹配CA到$ 1，CB到$ 2等。

不幸的是

$myline =~ /(?:(\w+),?)+/; 

没有按没有工作。使用pcretest时，只能将'ce'转换为$ 1。 如何做到这一点？ 我是否需要将它放入while循环？

谢谢！

Answer 1

为什么不使用split function：

@parts = split(/,/,$myline); 

split将字符串分割成使用您提供作为分隔符正则表达式的字符串列表。

Answer 2

使用方便吗my @parts = split(/,/, $myline)？

Answer 3

如果元素的数量是可变的，那么你就不会按照你想要的方式去做。

while($myline =~ /(\w+)\b/g) { 
    # do something with $1 
}

我会猜，你的真实数据比“CA，CB，CC，CD，CE”更复杂，但是如果它不是那么使用：使用全局标志，通过串回路正则表达式可能不合理。你会更好的分隔字符分割字符串：

my @things = split ',', $myline;

Answer 4

虽然split是来解决问题的好办法，在列表上下文中的捕获正则表达式也是行之有效的。了解这两种方法是有用的。

my $line = 'ca,cb,cc,cd,ce'; 
my @words = $line =~ /(\w+)/g; 

Answer 5

查找到CSV PM的你可以从CPAN下载，即Text::CSV或Text::CSV_XS。

这将为您提供您所需的信息，并解释发生引用的逗号分隔值。

使用这些模块可以很容易地将数据拆分出来，并通过它解析...

例如：

my @field = $csv->fields;