AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • 主页
  • 系统&网络
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • 主页
  • 系统&网络
    • 最新
    • 热门
    • 标签
  • Ubuntu
    • 最新
    • 热门
    • 标签
  • Unix
    • 最新
    • 标签
  • DBA
    • 最新
    • 标签
  • Computer
    • 最新
    • 标签
  • Coding
    • 最新
    • 标签
主页 / ubuntu / 问题 / 642306
Accepted
nani
nani
Asked: 2015-06-30 03:41:48 +0800 CST2015-06-30 03:41:48 +0800 CST 2015-06-30 03:41:48 +0800 CST

如何grep csv文件信息并将其放入另一个文件

  • 772

我有一个 csv 文件。我需要从中创建另一个文件。csv文件如下

Signal Start,PK_SIG_NME,PK_SIGNALS_WIDTH,DESIGN_SIG_NME(exact string),, ,HRESETn   ,1,~dcc_ares,, ,HCLK,1,dcc_clk,, ,HADDR,              [31:0],i_dcc_qhs_haddr, etc 

所需的输出是

.HRESETn(~dcc_ares), .HCLK(dcc_clk), .HADDR(i_dcc_qhs_haddr)
csv
  • 4 4 个回答
  • 1041 Views

4 个回答

  • Voted
  1. Best Answer
    jijinp
    2015-06-30T03:57:40+08:002015-06-30T03:57:40+08:00
    awk -F"," '{ gsub (" ", "", $7); print "."$7"("$9"), ."$12"("$14"), ."$17"("$19")" }'
    

    对于 n 模式

    awk -F"," '{ gsub (" ", "", $7); for ( i = 1 ; i <=(NF-2) ; i++) if ( ((i - 7) % 5 ) == 0 && (i - 7) >= 0  )  printf "."$i"("$(i+2)"), "; print "" }'
    
    • 2
  2. A.B.
    2015-06-30T07:45:38+08:002015-06-30T07:45:38+08:00

    为了更好的 CSV 支持使用perl和Text::CSV

    #!/usr/bin/perl
    
    use strict;
    use warnings;
    use Text::CSV;
    
    my $file = $ARGV[0];
    open my $fh, "<", $file or die "$file: $!";
    
    my $csv = Text::CSV->new ({
        binary    => 1,
        auto_diag => 1,
        # uncomment the line below to avoid leading and trailing whitespaces
        allow_whitespace => 1,
        sep_char  => ','
    });
    
    while (my $row = $csv->getline ($fh)) {
        print ".$row->[6]($row->[8]), ";
        print ".$row->[11]($row->[13]), ";
        print ".$row->[16]($row->[18])\n";
    }
    close $fh;
    

    将文件另存为./getit,chmod +x getit然后运行./getit input.csv


    示例输出

    .HRESETn(~dcc_ares), .HCLK(dcc_clk), .HADDR(i_dcc_qhs_haddr)
    

    如果您收到这样的错误消息:

    "use Text::CSV;" - Can't locate Text/CSV.pm
    

    通过以下方式安装正确的模块:

    sudo apt-get install libtext-csv-perl
    

    或者

    perl -MCPAN -e'install Text::CSV'
    
    • 1
  3. Sergiy Kolodyazhnyy
    2015-06-30T06:16:40+08:002015-06-30T06:16:40+08:00

    使用 awk 的另一种方法:

    awk 'BEGIN{RS=","} /HRESETn/||/HCLK/||/HADDR/{var=$0; printf "."var;getline;getline;printf "("$0")"; if(var != "HADDR") printf RS}' cvsfile.cvs

    解释

    • 将逗号视为记录分隔符。
    • 找到所有 HRESETn 或 HCLK 或 HADDR 的字段,打印它们
    • 在匹配的字符串后用大括号打印第二条记录。
    • 检查 HADDR 是否是我们打印的最后一个东西,如果它没有在末尾添加逗号(这是为了消除尾随的逗号)

    输出

    $ awk 'BEGIN{RS=","} /HRESETn/||/HCLK/||/HADDR/{var=$0; printf "."var;getline;getline;printf "("$0")"; if(var != "HADDR") printf RS}' cvsfile.cvs
    
    .HRESETn   (~dcc_ares),.HCLK(dcc_clk),.HADDR(i_dcc_qhs_haddr)
    
    • 0
  4. heemayl
    2015-07-01T01:38:54+08:002015-07-01T01:38:54+08:00

    这是一个python解决方案:

    #!/usr/bin/env python2
    with open('/path/to/file.csv') as f:
        for line in f:
           parts = line.split(',')
           print '.' + parts[6].rstrip() + '(' + parts[8] + ')' + ', .' + parts[11] + \
                  '(' + parts[13] + ')' + ', .' + parts[16] + '(' + parts[18] + ')'
    
    • 此脚本将逐行读取 csv 文件

    • 然后它将文件拆分为,( line.split(','))上的部分

    • 然后我们以所需的格式打印了所需的部分。

    输出 :

    .HRESETn(~dcc_ares), .HCLK(dcc_clk), .HADDR(i_dcc_qhs_haddr)
    
    • 0

相关问题

  • 如何使用 JAVA 将以下 CSV 转换为 Hashmap [关闭]

Sidebar

Stats

  • 问题 205573
  • 回答 270741
  • 最佳答案 135370
  • 用户 68524
  • 热门
  • 回答
  • Marko Smith

    如何运行 .sh 脚本?

    • 16 个回答
  • Marko Smith

    如何安装 .tar.gz(或 .tar.bz2)文件?

    • 14 个回答
  • Marko Smith

    如何列出所有已安装的软件包

    • 24 个回答
  • Marko Smith

    无法锁定管理目录 (/var/lib/dpkg/) 是另一个进程在使用它吗?

    • 25 个回答
  • Martin Hope
    Flimm 如何在没有 sudo 的情况下使用 docker? 2014-06-07 00:17:43 +0800 CST
  • Martin Hope
    Ivan 如何列出所有已安装的软件包 2010-12-17 18:08:49 +0800 CST
  • Martin Hope
    La Ode Adam Saputra 无法锁定管理目录 (/var/lib/dpkg/) 是另一个进程在使用它吗? 2010-11-30 18:12:48 +0800 CST
  • Martin Hope
    David Barry 如何从命令行确定目录(文件夹)的总大小? 2010-08-06 10:20:23 +0800 CST
  • Martin Hope
    jfoucher “以下软件包已被保留:”为什么以及如何解决? 2010-08-01 13:59:22 +0800 CST
  • Martin Hope
    David Ashford 如何删除 PPA? 2010-07-30 01:09:42 +0800 CST

热门标签

10.10 10.04 gnome networking server command-line package-management software-recommendation sound xorg

Explore

  • 主页
  • 问题
    • 最新
    • 热门
  • 标签
  • 帮助

Footer

AskOverflow.Dev

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve