從bash或Perl腳本讀取CSV

Question

我有簡單的簡單的CSV文件如下（3列4行的那個例子）：

A  , B  , C 
A  , 」B,C」 , D 
「A,B」 , C  , D 
A  , B  , 」C,D」 

如何創建腳本，我可以進入列和行號並打印回我的內容？

注意！將引號作爲參數，而不是作爲一個分離器之間的逗號..

編輯： 通緝輸出： 的參數：1,1（列，行）給出的答案會是：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，雖然文字:: 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