我想基于逗号分割这个字符串,但不是基于双引号"
中的逗号:
my $str = '1,2,3,"4,5,6"';
.say for $str.split(/','/) # Or use comb?
输出应该是:
1
2
3
"4,5,6"
快速解决与comb
,采取任何但不是"
或,
或采取引用的字符串
my $str = '1,2,3,"4,5,6",7,8';
.say for $str.comb: / <-[",]>+ | <["]> ~ <["]> <-["]>+ / ;
正如@melpomene建议的那样,使用Text::CSV模块也可以。
use Text::CSV;
my $str = '123,456,"78,91",abc,"de,f","ikm"';
for csv(in => csv(in => [$str], sep_char => ",")) -> $arr {
.say for @$arr;
}
哪个输出:
123
456
78,91
abc
de,f
ikm
这可能有所帮助:
my $str = ‘1,2,3,"4,5,6",7,8’;
for $str.split(/ \" \d+ % ',' \"/, :v) -> $l {
if $l.contains('"') {
say $l.Str;
} else {
.say for $l.comb(/\d+/);
}
}
输出:
1
2
3
"4,5,6"
7
8