sed - 如何替換一個字符串只在csv文件中的行的匹配部分？

Question

我有一個包含以下行的CSV文件：

23000747,,2015582,-375080.2254,-375080,-375080 
23000749,,SA1555,"-30,448,276","-30,448,456","-30,448,239" 

我想刪除所有引用的列雙引號和逗號，這樣的結果會像下面：

23000747,,2015582,-375080.2254,-375080,-375080 
23000749,,SA1555,-30448276,-30448456,-30448239 

我設法能夠找到我想用下面的命令刪除逗號的部分，但我無法弄清楚如何在\ 1上執行s /，// g和s /「// g 。

sed 's/\("[-,0-9]*"\)/#\1#/g' 1.txt 

23000747,,2015582,-375080.2254,-375080,-375080 
23000749,,SA1555,#"-30,448,276"#,#"-30,448,456"#,#"-30,448,239"# 

真的很感謝任何人都可以在這裏幫忙。

插孔

Answer 1

sed不適合您的工作。您可以使用Perl和Text::CSV module，但如果你有GNU awk可以使用FPAT變量：

awk 'BEGIN { FPAT = "([^,]*)|(\"[^\"]+\")"; OFS="," } { for (i=1; i<=NF; i++) gsub(/[\",]/,"", $i) }1' 

結果：

23000747,,2015582,-375080.2254,-375080,-375080 
23000749,,SA1555,-30448276,-30448456,-30448239 

Answer 2

對於此特定任務，shell是有限的。如Perl先進的文本處理語言更適合與CSV解析器，請參閱：

my $file = "/path/to/file.csv"; 

use strict; use warnings; 

use feature qw/say/; 
use Text::CSV; 

my $csv = Text::CSV->new() 
    or die "Cannot use CSV: ".Text::CSV->error_diag(); 

open my $fh, "<:encoding(utf8)", $file 
    or die "$file: $!"; 

while (my $row = $csv->getline($fh)) { 
    map { tr/,// } @$row; 
    say join ",", @$row; 
} 

$csv->eof or $csv->error_diag(); 
close $fh; 

如果您需要刪除特定列逗號，更換

map { tr/,// } @$row; 

通過

map { tr/,// } @$row[3..5]; # array slice (columns N-1)