如何從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;