我有一个数据库,其中包含许多包含逗号分隔值的字段.我需要在Perl中拆分这些字段,这很简单,除了一些值后面跟着包含在括号中的嵌套CSV,我不想拆分.
例：
recycling,environmental science,interdisciplinary (e.g.,consumerism,waste management,chemistry,toxicology,government policy,and ethics),consumer education
拆分“,”给了我：
recycling environmental science interdisciplinary (e.g. consumerism waste management chemistry toxicology government policy and ethics) consumer education
我想要的是：
recycling environmental science interdisciplinary (e.g.,and ethics) consumer education
任何Perl正则表达式(perts)能伸出援手吗？
我试过修改我在类似的SO post中找到的正则表达式字符串,它没有返回任何结果：
#!/usr/bin/perl
use strict;
use warnings;
my $s = q{recycling,consumer education};
my @parts = $s =~ m{\A(\w+) ([0-9]) (\([^\(]+\)) (\w+) ([0-9]) ([0-9]{2})};
use Data::Dumper;
print Dumper \@parts;
解决方法
试试这个：
my $s = q{recycling,consumer education};
my @parts = split /(?![^(]+\)),/,$s;