Perl：如何在一个字符的无引号实例上拆分字符串

在perl中，如何仅沿无引号分隔符拆分字符串？i、 e.以下字符串：

my $line = '"a quoted, comma", word1, word2';

应生成包含以下元素的数组：

"a quoted, comma"
 word1
 word2

---

您可以使用的

parse_line（）

of

输出：

"a quoted, comma"
 word1
 word2

---

您可以使用的

parse_line（）

of

输出：

"a quoted, comma"
 word1
 word2

---

您可以使用一个简单的替代正则表达式模式来实现这一点

use strict;
use warnings;
use 5.010;

my $line = q<"a quoted, comma", word1, word2>;

my @words = $line =~ / (?: "[^"]*" | [^,] )+ /xg;

say for @words;

---

您可以使用一个简单的替代正则表达式模式来实现这一点

use strict;
use warnings;
use 5.010;

my $line = q<"a quoted, comma", word1, word2>;

my @words = $line =~ / (?: "[^"]*" | [^,] )+ /xg;

say for @words;

---

相关的：相关的：谢谢你的帮助。有没有办法让ParseWords将“”和匹配的括号都当作引号？（a，b）是一个词吗？亲爱的投票人，你的评论将帮助我改进我的答案。别忘了告诉我们你为什么投反对票？：）谢谢你的帮助。有没有办法让ParseWords将“”和匹配的括号都当作引号？（a，b）是一个词吗？亲爱的投票人，你的评论将帮助我改进我的答案。别忘了告诉我们你为什么投反对票？：）