如何使用Perl在数据中解析CSV数据和内部逗号？

Question

The data I need to parse looks like:

[fild1, filed2, .... filedn] , [filed1, filed2, .... filedn] .....

I call it a special form of CSV data because there are two kinds of comma:

1. those commas outside the [] pair are served as the separator between different records.
2. those commas inside the [] pair are served as the separator between different fields.

So in this case using split(',' , $data) will not serve my needs which is to parse the data and get every record in the data.

Answer 1

This should do the job:

my @out = map{[split/,/]} $data =~ /\[([^\]]+)\]/g;

example:

use Data::Dumper;
$data='[1,2,3],[4,5],[6]';
@a=map{[split/,/]} $data =~ /\[([^\]]+)\]/g;
print Dumper @a;

output:

$VAR1 = [
          '1',
          '2',
          '3'
        ];
$VAR2 = [
          '4',
          '5'
        ];
$VAR3 = [
          '6'
        ];

Answer 2

How about: my @parts = split(/\\]/, $data); , and then you can iterate over @parts , remove the heading [ and split once more by ","

You can also make the initial split like so: my @parts = split(/\\] , /, $data); and that will save you some more cleanup later. Just be sure to only use this method if your data's whitespaces are consistent.

Answer 3

my @a = split /\]\s*,\s*\[/, $data;

并删除第一个'['和最后一个']'。

Answer 4

这是一个简单的示例，假定$data中的值有效。

my @data = map { [ split ',', $_ ] } $data =~ / \[ ([^\[\]]*) \] ,? /xg;

Answer 5

you can also try out Text::CSV or Text::CSV_XS. go to CPAN to download.