regex – Perl在逗号上拆分列表除了在括号内？

发布时间：2020-12-15 21:42:49 所属栏目：大数据来源：网络整理

导读：我有一个数据库,其中包含许多包含逗号分隔值的字段.我需要在Perl中拆分这些字段,这很简单,除了一些值后面跟着包含在括号中的嵌套CSV,我不想拆分. 例： recycling,environmental science,interdisciplinary (e.g.,consumerism,waste management,chemistry,tox

我有一个数据库,其中包含许多包含逗号分隔值的字段.我需要在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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!