awk 或 sed CSV 文件操作

Question

"a004-1b","North","at006754"
"a004-1c","south","atytgh0"
"a004-1d","east","atrthh"
"a010-1a","midwest","atyu"
"a010-1b","south","rfg67"

我想打印第一列和第二列，没有任何额外的字符 我想消除所有（“”和第三列） 提前致谢

Answer 1

awk -F'^"|","|"
上面的脚本甚至可以处理嵌入双引号或逗号的字段。唯一的缺点（如果你可以这样称呼它）是第一个字段从 $2 开始
概念证明
$ awk -F'^"|","|"
 '{print $2,$3}' ./infile.csv

上面的脚本甚至可以处理嵌入双引号或逗号的字段。唯一的缺点（如果你可以这样称呼它）是第一个字段从 $2 开始
概念证明

 '{print $2,$3}' ./infile.csv
a004-1b North

a004-1c south

a010-1a midwest

a010-1b south

'{print $2,$3}' ./infile.csv

上面的脚本甚至可以处理嵌入双引号或逗号的字段。唯一的缺点（如果你可以这样称呼它）是第一个字段从 $2 开始

概念证明

Answer 2

您需要 GNU Awk 4 才能实现此功能：

$ gawk -vFPAT='[^",]+' '{print $1,$2}'

我喜欢这个新的“字段模式”功能。这是我的新锤子，一切都是钉子。请在 http://www.gnu 上阅读。 org/software/gawk/manual/html_node/Splitting-By-Content.html

（以这种方式编写，它不会考虑嵌入的逗号或引号，因为问题暗示不需要这样做。）

Answer 3

如果您为此使用 awk，为什么要在其上放置 Perl 标记呢？

在 Perl 中：

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

# Make Data::Dumper pretty
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent   = 1;

# Set maximum depth for Data::Dumper, zero means unlimited
local $Data::Dumper::Maxdepth = 0;

use Text::CSV;

my $csv = Text::CSV->new();
while( my $row = $csv->getline( \*DATA )){
  print 'row: ', Dumper $row;
}

__DATA__
"a004-1b","North","at006754"
"a004-1c","south","atytgh0""a004-1d","east","atrthh"
"a010-1a","midwest","atyu"
"a010-1b","south","rfg67"

Answer 4

awk -F'\"|\,' '{print $2,$5}' sample

Answer 5

不处理嵌入的双引号：

sed -e 's/^"\([^"]*\)","\([^"]*\)".*/\1 \2/'

处理它们：

sed -n -e 's/^"//;s/"$//;s/","/ /;s/","/\n/;P'

上述内容甚至适用于 1 或 2 字段输入。

Answer 6

如果你想要它“纯” awk 或 sed，这不符合要求，但除此之外它可以工作：

awk -F, '{print $1 " " $2}' | tr -d '"'