perl 或 bash 中的匹配矩阵

Question

我想知道您是否可以帮我找到解决问题的方法（不必给我代码）。 我想在 perl 或 Bash 中创建一个“匹配矩阵”。

基本上，我的第一个文件是一个提取的 ID 列表，不是唯一的 (file1)

ID1 
ID4 
ID20 
ID1 

为了让我的生活更轻松，我的第二个文件只是一个带有多个 ID (file2) 的长行

ID1 ID2 ID3 ID4 .... IDn

我想实现这个输出：

    ID1 ID2 ID3 ID4 ID5 ID6 ID7 .... ID20 IDn
ID1  X
ID4              X
ID20                                  X
ID1  X

对我来说棘手的部分是在找到匹配项时添加“X”。

任何帮助，提示都非常感谢。

Answer 1

这是我对这个问题的回答：

use warnings;
use strict;

open(FILE1, "file1") || die "cannot find file1";
open(FILE2, "file2") || die "cannot find file2";

#read file2 to create hash
my $file2 = <FILE2>;
$file2 =~ s/\n//;
my @ids = split(/\s+/, $file2);
my %hash;
my $i = 1;
map {$hash{$_} = $i++;} @ids;

#print the first line
printf "%6s",'';
for my $id (@ids) {
    printf "%6s", $id;
}
print "\n";

#print the other lines
while(<FILE1>) {
    chomp;
    my $id = $_;
    printf "%6s", $id;
    my $index = $hash{$id};
    if ($index) {
        $index = 6 * $index;
        printf "%${index}s\n",'x';
    } else {
        print "\n";
    }
}