简单的perl split()和正则表达式问题

Question

可能的重复：
如何使用 Perl 解析引用的 CSV正则表达式？

我正在尝试获取 CSV 文件并将每一行导入到一个数组中（其中每个元素代表一列）。 CSV 文件的格式非常简单：

item1,item2,item3
nextrowitem1,item2,item3
"items,with,commas","are,in,quotes"

我使用以下方法导入了 CSV 文件：

open(FILE, "test.csv");
@lines = <FILE>;

然后使用以下方法循环遍历它：

foreach(@lines){
    @items = split(/regular expression/);
    /*Do stuff with @items array*/
}

（请注意，您不需要使用 split(/regular expression, $string);因为如果没有提供字符串，split() 假定 $_)

在我使用 CSV 文件测试文件之前，其中没有任何项目包含逗号和简单的正则表达式分割(/,/)。这工作得很好，所以文件、读取它或我在这个正则表达式之后的循环没有任何问题。然而，当我点击包含逗号的项目时，它们会像这样进行可以理解的划分：

1 => "items
2 => with
3 => commas"
4 => "are
5 => in
6 => quotes"

而不是所需的：

1 => items,with,commas
2 => are,in,quotes

任何人都可以帮助我开发一个正则表达式来正确分割这个数组吗？基本上，如果项目以引号 (") 开头，则需要等到 "," 才能拆分。如果项目不以引号开头，则需要等到 , 进行拆分。

Answer 1

尝试阅读 Text::CSV 作为已经执行此操作的可能选项。将 CSV 解析为正则表达式的问题在于，您必须查找诸如 "," （您指出的）之类的内容以及 , 分隔符。

Answer 2

只需使用 Text::CSV_XS 即可...

Answer 3

请参阅我的解决此问题的帖子更多细节。

^(?:(?:"((?:""|[^"])+)"|([^,]*))(?:$|,))+$ 将匹配整行，然后您可以使用匹配的捕获来获取数据（不带引号）。