拆分逗号分隔的列表,其中文本中的逗号不转义

快速示例 Text::CSV 用于读取字符串:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw/say/;
use Text::CSV;

my $str = q/01320   2,35,6,"warm,windy"/;

my $csv = Text::CSV->new({auto_diag => 2});

my @fields = split " ", $str, 2;

say '$fields[0] is ', $fields[0];
say '$fields[1] is ', $fields[1];

say 'Parsed out $fields[1] is:';
$csv->parse($fields[1]);
say for $csv->fields;

运行此命令将产生:

$fields[0] is 01320
$fields[1] is 2,35,6,"warm,windy"
Parsed out $fields[1] is:
2
35
6
warm,windy

这是一个非核心模块,因此您必须将其与您喜爱的cpan客户机或操作系统的包管理器一起安装。如果这样做不会自动安装 Text::CSV_XS ,您可能还希望获得一个优化的实现 Text::CSV 如果存在,则自动使用。

在您的情况下,我将使用regexp并检查我需要的组,这是一个示例,我希望它将帮助您

use warnings;
use strict;
my $string = '01320 2,35,6,"warm,windy"';

if ($string =~ /^(\d+)\t(\d+),{1}(\d+),{1}(\d+),{1}(\S+)$/gu) {
        print "$1\n$2\n$3\n$4\n$5\n\n";
}