如何忽略双引号中的分割符

iLRainyday

我这个是不是有点傻？？

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $string = q{ab:123,bc:"333,444",cd:456};
   
7. my @elements = split /(?<="),|(?<=\d),(?=[a-z])/, $string;
   
8. 
   
9. local $" = "\n";
   
10. print "@elements";

复制代码