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
    • 最新
    • 标签
主页 / unix / 问题 / 432151
Accepted
αғsнιη
αғsнιη
Asked: 2018-03-20 10:32:41 +0800 CST2018-03-20 10:32:41 +0800 CST 2018-03-20 10:32:41 +0800 CST

删除 CSV 文件中每个字段中的重复模式/条目

  • 772

如何使用以下示例作为数据删除每个单独字段中的重复条目。

0x,9.4,,,#0,#UNIX#unix,#cli#L#فا#0#فا#0#L#SE#Cli#SE,#فارسی#فارسی#۱#1#١#1,bsh,#V & v

预期输出(删除所有重复的,不区分大小写,Unicode“波斯语#۱/阿拉伯语#١”的差异,条目的顺序以及应该保留哪个条目(忽略大小写)在这里无关紧要):

0x,9.4,,,#0,#unix,#cli#L#فا#0#SE,#فارسی#١#۱#1,bsh,#V & v

模式采用这种格式#x,x表示一个或多个字符长度的任何内容。

波斯语/阿拉伯语字母/数字差异的 Unicode 表

awk text-processing
  • 3 3 个回答
  • 647 Views

3 个回答

  • Voted
  1. Best Answer
    Gilles Quenot
    2018-03-20T11:03:00+08:002018-03-20T11:03:00+08:00

    在带有适当csv解析器的 shell 中使用perl命令行(只需几行):

    perl -CS -Mopen=":std,IN,OUT,IO,:encoding(utf8)" -MText::CSV -lne '
        BEGIN{
            our $csv = Text::CSV->new({ sep_char => "," });
            sub uniq { my %seen;  grep !$seen{lc $_}++, @_; }
        };
        $csv->parse($_) or die "parse error";
        print join ",", map { join "#", uniq split /#/ } $csv->fields();
    ' file.csv
    

    输出 :

    0x,9.4,,,#0,#UNIX,#cli#L#فا#0#SE,#فارسی#۱#1#١,bsh,#V & v
    

    笔记 :

    • 需要安装Text::CSVperl 模块:sudo apt-get install libtext-csv-perl适用于 debian 和衍生产品
    • 1
  2. RomanPerekhrest
    2018-03-20T12:03:19+08:002018-03-20T12:03:19+08:00

    完整的Python解决方案:

    uniq_arabic_csv.py脚本:

    #!/bin/python
    
    import sys, re
    
    csv_data = sys.stdin.read().strip()
    result = []
    
    for item in csv_data.split(','):
        matches = list(re.finditer(r'#[^#]+', item, re.U | re.I))
        if not matches or len(matches) == 1:
            result.append(item)
        else:
            s, res = set(), []
            for m in matches:
                m = m.group()
                if m.lower() not in s: res.append(m)
                s.add(m.lower())
            result.append(''.join(res))
    
    result = ','.join(result)                    
    print(result)
    

    用法:

    s="0x,9.4,,,#0,#UNIX#unix,#cli#L#فا#0#فا#0#L#SE#Cli#SE,#فارسی#فارسی#۱#1#۱#1,bsh,#V & v"
    python uniq_arabic_csv.py <<<"$s"
    

    输出:

    0x,9.4,,,#0,#UNIX,#cli#L#فا#0#SE,#فارسی#۱#1,bsh,#V & v
    
    • 1
  3. αғsнιη
    2018-03-20T14:04:05+08:002018-03-20T14:04:05+08:00

    我也在下面的简单解决方案中编码awk:

    awk -F, '{ i=0; comma=""; while (++i<=NF) {
        if ( split(tolower($i), arr, /#/)>1 ){ for(v in arr) !unq[arr[v]]++;printf comma;
            for (x in unq) {printf (x!="")?hash""x:""; hash="#"; delete unq[x]}}
        else {printf comma""$i; comma=","}}; print ""
    }' infile.csv
    
    • 0

相关问题

  • 重新排列字母并比较两个单词

  • 在awk中的两行之间减去相同的列

  • 多行文件洗牌

  • 如何更改字符大小写(从小到大,反之亦然)?同时[重复]

Sidebar

Stats

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

    如何将 GPG 私钥和公钥导出到文件

    • 4 个回答
  • Marko Smith

    ssh 无法协商:“找不到匹配的密码”,正在拒绝 cbc

    • 4 个回答
  • Marko Smith

    我们如何运行存储在变量中的命令?

    • 5 个回答
  • Marko Smith

    如何配置 systemd-resolved 和 systemd-networkd 以使用本地 DNS 服务器来解析本地域和远程 DNS 服务器来解析远程域?

    • 3 个回答
  • Marko Smith

    如何卸载内核模块“nvidia-drm”?

    • 13 个回答
  • Marko Smith

    dist-upgrade 后 Kali Linux 中的 apt-get update 错误 [重复]

    • 2 个回答
  • Marko Smith

    如何从 systemctl 服务日志中查看最新的 x 行

    • 5 个回答
  • Marko Smith

    Nano - 跳转到文件末尾

    • 8 个回答
  • Marko Smith

    grub 错误:你需要先加载内核

    • 4 个回答
  • Marko Smith

    如何下载软件包而不是使用 apt-get 命令安装它?

    • 7 个回答
  • Martin Hope
    rocky 如何将 GPG 私钥和公钥导出到文件 2018-11-16 05:36:15 +0800 CST
  • Martin Hope
    Wong Jia Hau ssh-add 返回:“连接代理时出错:没有这样的文件或目录” 2018-08-24 23:28:13 +0800 CST
  • Martin Hope
    Evan Carroll systemctl 状态显示:“状态:降级” 2018-06-03 18:48:17 +0800 CST
  • Martin Hope
    Tim 我们如何运行存储在变量中的命令? 2018-05-21 04:46:29 +0800 CST
  • Martin Hope
    Ankur S 为什么 /dev/null 是一个文件?为什么它的功能不作为一个简单的程序来实现? 2018-04-17 07:28:04 +0800 CST
  • Martin Hope
    user3191334 如何从 systemctl 服务日志中查看最新的 x 行 2018-02-07 00:14:16 +0800 CST
  • Martin Hope
    Marko Pacak Nano - 跳转到文件末尾 2018-02-01 01:53:03 +0800 CST
  • Martin Hope
    Kidburla 为什么真假这么大? 2018-01-26 12:14:47 +0800 CST
  • Martin Hope
    Christos Baziotis 在一个巨大的(70GB)、一行、文本文件中替换字符串 2017-12-30 06:58:33 +0800 CST
  • Martin Hope
    Bagas Sanjaya 为什么 Linux 使用 LF 作为换行符? 2017-12-20 05:48:21 +0800 CST

热门标签

linux bash debian shell-script text-processing ubuntu centos shell awk ssh

Explore

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

Footer

AskOverflow.Dev

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve