主页 / unix / 问题 / 417076
Accepted
nat
Asked: 2018-01-15 09:37:22 +0800 CST

匹配 CSV 文件中的可逆对

  • 772

我有一个 .csv 文件，如下所示：

A,B,1999
C,D,1990
B,A,1989
D,A,1990
A,B,1999
...

我想重新排列它大致如下所示：

A,B,1989,0,B,A,1
A,B,1999,2,B,A,0
C,D,1990,1,D,C,0
D,A,1990,1,A,D,0

换句话说，我想知道A,B第三列中记录的每个值的对出现的次数，B,A以及相同值出现的次数。

我大部分时间都在努力将说的行与说的行A,B匹配B,A。

非常感谢您对此的任何帮助。

awk perl

2 个回答

  1. Best Answer

    GNUawk解决方案：

    awk -F',' '{ k=$1 FS $2 }{ a[k][$3]++; rev[k]=$2 FS $1 }
           END{ 
               for(i in a) 
                   for(j in a[i]) { 
                       print i, j, a[i][j], rev[i], a[rev[i]][j]+0; 
                       delete a[rev[i]][j] 
                   }
           }' OFS=',' file

    输出：

    C,D,1990,1,D,C,0
A,B,1999,2,B,A,0
D,A,1990,1,A,D,0
B,A,1989,1,A,B,0
    • 1

  2. Perl 中的这个似乎正在工作。

    perl -F, -alne '
    next if /^\s*$/;
    $hs{$F[2]}{"$F[0],$F[1]"}++;
    END{
        while (my ($nr, $lhs) = each %hs) {
            while (my ($lts, $cnt) = each %{$lhs}) {
                my $rvs = scalar reverse $lts;
                my $rvsn = $hs{$nr}{$rvs} // 0;
                print "$lts,$nr,$cnt,$rvs,$rvsn";
                delete $hs{$nr}{$rvs};
            }
        }
    }
' data

    逐行解释：

    1. , 使用f或分隔符运行 Perl ，将字段读入一个数组，处理行尾，为每一行运行，然后执行：

      perl -F, -alne '

    2. 跳过输入中的空行：

      next if /^\s*$/;

    3. 增加每条记录的哈希计数器：

      $hs{$F[2]}{"$F[0],$F[1]"}++;

    4. 开始最后一个块：

      END{

    5. 读取哈希：

      while (my ($nr, $lhs) = each %hs) {
    while (my ($lts, $cnt) = each %{$lhs}) {

    6. 准备打印数据：

      my $rvs = scalar reverse $lts;
my $rvsn = $hs{$nr}{$rvs} // 0;
print "$lts,$nr,$cnt,$rvs,$rvsn";

    7. 摆脱哈希中的双条目：

      delete $hs{$nr}{$rvs};

    8. data是输入文件。

    因此，对于这个输入数据：

    A,B,1999
C,D,1990
B,A,1989
D,A,1990
A,B,1999
B,A,1999

    你应该得到这个输出：

    D,A,1990,1,A,D,0
C,D,1990,1,D,C,0
B,A,1989,1,A,B,0
A,B,1999,2,B,A,1
    • 0

相关问题