perl拆分函数异常条件[关闭]

Question

我需要在 perl 中拆分。请看下面的例子：

"john","David2,mick",25,"12-12-2009","male"

我必须在每个不在引号内的逗号 (,) 上拆分此记录。

预期输出是：

john 
david2mick 
25 
12-12-2009
male

你能帮我解决这个问题吗？

Answer 1

这是一个 CSV 文件。最好使用 Text::CSV 模块

use Text::CSV;
my $line = '"john","David2,mick",25,"12-12-2009","male"';
my $csv = Text::CSV->new();
$csv->parse($line);
my @columns = $csv->fields();

Answer 2

您可以使用Text::ParseWords，它是 Perl 5 中的核心模块。它是Text::CSV 的轻量级选项，假设这不是您在此处拥有的正确 csv 数据。

use strict;
use warnings;
use Data::Dumper;
use Text::ParseWords;

my $str = qq("john","David2,mick",25,"12-12-2009","male");
my @list = quotewords(',', 0, $str);

print Dumper \@list;

输出：

$VAR1 = [
          'john',
          'David2,mick',
          '25',
          '12-12-2009',
          'male'
        ];