主页 / unix / 问题 / 532599
Accepted
nath
Asked: 2019-07-29 07:46:10 +0800 CST

AWK - 列的打印范围

  • 772

如果我有以下格式的 csv 文件：

column1,column2,column3,column4,column5,column6,column7,column8

我只想awk打印我会使用的第 2 到第 7 列：

awk -F',' '{print $2 "," $3 "," $4 "," $5 "," $6 "," $7}' file.csv

并得到：

column2,column3,column4,column5,column6,column7

有没有办法连接第 2-7 列来简化命令。当我考虑一个包含更多列的文件时，我的awk命令会变得非常长。

awk text-processing

4 个回答

  1. 实用程序切割有一个紧凑的符号：

    cut -d, -f2-7 <input-file>

    生产：

    column2,column3,column4,column5,column6,column7

    回答@PlasmaBinturong 的评论：我的意图是解决短调用序列的问题：“......我的 awk 命令会变得非常长......”。但是，您也可以找到按照您的需要排列字段的代码。尽管我喜欢 awk、perl、python，但我经常发现构建一个特定的实用程序来扩展标准 *nix 的功能很有用。因此，这里是一个测试脚本 s2 的摘录，显示了实用程序 recut 和arrange，两者都允许重新排列和复制，arrange 还允许减小字段范围：

    FILE=${1-data1}

# Utility functions: print-as-echo, print-line-with-visual-space.
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }

pl " Input data file $FILE:"
head $FILE

pl " Results, cut:"
cut -d, -f2-7 $FILE

pl " Results, recut (modified as my-recut):"
my-recut -d "," 7,6,2-5 < $FILE

pl " Results, arrange:"
arrange -s "," -f 5,3-1,7,5,3-4,5 $FILE

    从这些版本产生结果：

    OS, ker|rel, machine: Linux, 3.16.0-10-amd64, x86_64
Distribution        : Debian 8.11 (jessie) 
bash GNU bash 4.3.30
cut (GNU coreutils) 8.23
recut - ( local: RepRev 1.1, ~/bin/recut, 2010-06-10 )
arrange (local) 1.15

-----
 Input data file data1:
column1,column2,column3,column4,column5,column6,column7,column8

-----
 Results, cut:
column2,column3,column4,column5,column6,column7

-----
 Results, recut (modified as my-recut):
column7,column6,column2,column3,column4,column5

-----
 Results, arrange:
column5,column3,column2,column1,column7,column5,column3,column4,column5

    my-recut 是对 textutils 代码 recut 的轻微修改，arrange 是我们的扩展版。更多信息：

    recut   Process fields like cut, allow repetitions and re-ordering. (what)
Path    : ~/bin/recut
Version : - ( local: RepRev 1.1, ~/bin/recut, 2010-06-10 )
Length  : 56 lines
Type    : Perl script, ASCII text executable
Shebang : #!/usr/bin/perl
Home    : http://www1.cuni.cz/~obo/textutils/ (doc)
Modules : (for perl codes)
 Getopt::Long   2.42

arrange Arrange fields, like cut, but in user-specified order. (what)
Path    : ~/bin/arrange
Version : 1.15
Length  : 355 lines
Type    : Perl script, ASCII text executable
Shebang : #!/usr/bin/perl
Modules : (for perl codes)
 warnings       1.23
 strict 1.08
 Carp   1.3301
 Getopt::Euclid 0.4.5

    最良好的祝愿......干杯，drl

    • 20
  2. Best Answer
    $ awk -v b=2 -v e=7 'BEGIN{FS=OFS=","} {for (i=b;i<=e;i++) printf "%s%s", $i, (i<e ? OFS : ORS)}' file
column2,column3,column4,column5,column6,column7

    b=开始字段编号，e=结束字段编号。如果您需要处理带引号字段、嵌入逗号、换行符等的 CSV，请参阅https://stackoverflow.com/q/45420535/1745001。

    • 8 
  3. sed -e '
  s/,/\n/7        ;# tag the end of col7
  s/^/,/          ;# add a comma
  s/,/\n/2        ;# tag beginning of col2
  s/.*\n\(.*\)\n.*/\1/ ;# perform surgery 
' file.csv

    结果：

    column2,column3,column4,column5,column6,column7
    • 3

  4. 用下面的命令测试，它工作正常

    awk -F "," 'OFS=","{$1="";$NF="";print $0}' o| sed "s/^,//g"|sed "s/,$//g"

    输出

    column2,column3,column4,column5,column6,column7
    • 1

相关问题