检查列表中是否存在字符串,如果字符串存在则输出第三个文件

检查列表中是否存在字符串,如果字符串存在则输出第三个文件

我有 2 个文件(“data.tab”和“mylist.tab”)。

我的“data.tab”文件如下所示:

Info_1    abc1     abc2     abc3
Info_2    abc5     ghi4
Info_3    abc10
Info_4    abc8     abc7     abc87    klm78    abc99
Info_5    

我的“mylist.tab”文件如下所示:

abc2
abc10
abc34
abc99
abc78
abc8
abc3
abc5
abc4

我想搜索“data.tab”中的每个字符串(第一列除外)是否存在于“mylist.tab”中。我想创建第三个文件“output.tab”,如果该字符串存在,那么我将在相应的行/列中包含“1”,否则包含“0”。

示例:“输出.tab”

Info_1   0    1     1
Info_2   1    0
Info_3   1
Info_4   1    0     0    0    1
Info_5   

请注意,“data.tab”每行包含不同数量的列。

答案1

这可以用 awk 直接表达:

awk 'FNR==NR { h[$1]; next } { for(i=2; i<=NF; i++) $i = ($i in h)? 1 : 0 } 1' mylist.tab data.tab

或者采用更易读的格式:

解析.awk

# Collect mylist.tab into the `h` associative array
FNR==NR {
  h[$1]
  next
}

# For all but the first column in data.tab check and record if it is in `h`
{ 
  for(i=2; i<=NF; i++) 
    $i = ($i in h) ? 1 : 0 
}

# Short for { print $0 }
1

像这样运行它:

awk -f parse.awk mylist.tab data.tab

输出:

Info_1 0 1 1
Info_2 1 0
Info_3 1
Info_4 1 0 0 0 1
Info_5

或者对于制表符分隔的列:

awk -v OFS='\t' -f parse.awk mylist.tab data.tab

输出:

Info_1  0   1   1
Info_2  1   0
Info_3  1
Info_4  1   0   0   0   1
Info_5

答案2

Perl 来救援!

将列表元素保存到哈希中,然后读取表,按空格分割并检查哈希以打印 0 或 1。

#!/usr/bin/perl
use warnings;
use strict;

my %in_list;
open my $LIST, '<', 'mylist.tab' or die $!;
while (<$LIST>) {
    chomp;
    $in_list{$_} = 1;
}

open my $TAB, '<', 'data.tab';
while (<$TAB>) {
    my @cells = split;
    print shift @cells, "\t";
    print join "\t", map $in_list{$_} ? 1 : 0, @cells;
    print "\n";
}

答案3

用于从 mylist.tabsed创建脚本并在 data.tab 上运行它:sed

sed \
    -e '1i s/^[ \\t]*//' \
    -e 's@\(.*\)@s/\\([ \\t]\\)\1\\b/\\11/@g' \
    -e '$as/\\([ \\t]\\)[^ \\t]\\{2,\\}\\b/\\10/g' mylist.tab \
    > /tmp/x.sed 
sed -f /tmp/x.sed data.tab

请注意,我假设“mylist.tab”中的所有字符串都至少有 2 个字符。

答案4

另一种perl解决方案

$ perl -lne 'if(!$#ARGV){ $h{$_}=1 }
             else{ s/\h\K\H+/$h{$&} ? 1 : 0/ge; print }
            ' mylist.tab data.tab
Info_1    0     1     1
Info_2    1     0
Info_3    1
Info_4    1     0     0    0    1
Info_5    
  • if(!$#ARGV){ $h{$_}=1 }建立一个单词哈希表mylist.tab
  • s/\h\K\H+/$h{$&} ? 1 : 0/ge对于 中的行data.tab1如果散列变量中存在则替换为 ,否则替换为0。对于空白的存在是\h\K积极的向后查找,从而避免第一列匹配
  • 然后打印修改后的行

相关内容