从 bash 或 perl 脚本中读取 CSV [重复]

Question

我有如下简单的 CSV 文件（该示例为 3 列和 4 行）：

A       , B      , C
A       , ”B,C”  , D
“A,B”   , C      , D
A       , B      , ”C,D”

如何创建可以输入列和行号并将内容打印回我的脚本？

注意！引号之间的逗号作为参数而不是分隔符..

编辑： 想要的输出： 对于参数：1,1 (col,row) 给定的答案将是：A 对于参数：2,2 (col,row) 给定的答案将是：B,C 对于参数：1,3 (col,row) 给定的答案将是：A,B 对于参数：3,3 (col,row) 给定的答案将是：D

在此致谢

Answer 1

a.pl:

#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV_XS qw( );

my $row_num = shift;
my $col_num = shift;

my $csv = Text::CSV_XS->new({ binary => 1, auto_diag => 1 });

while (my $row = $csv->getline(\*ARGV)) {
    next if --$row_num;

    print($row->[$col_num-1], "\n");
    last;
}

a.csv：（您发布的不是有效的 CSV，尽管 Text::CSV_XS 可能可以通过正确的选项处理它。）

A,B,C
A,"B,C",D
"A,B",C,D
A,B,"C,D"

输出：

$ ./a.pl 1 1 a.csv
A

$ ./a.pl 2 2 a.csv
B,C

$ ./a.pl 3 1 a.csv
A,B

$ ./a.pl 3 3 a.csv
D