使用parse_line()Text :: ParseWords:
use 5.010; use Text::ParseWords; my $line = q{"a quoted, comma", word1, word2}; my @parsed = parse_line(',', 1, $line); say for @parsed;
输出:
"a quoted, comma" word1 word2