perl或bash中的匹配矩阵

Question

我想知道如果你能给我一只手来找到解决方案（而不是必须给我一个代码）来解决我的问题。 我想在perl或Bash中创建一个“匹配矩阵”。

基本上，我的第一个文件是ID的提取列表，而不是唯一的（文件1）

ID1 
ID4 
ID20 
ID1 

使我的生活更方便我的第二个文件是只是倍数的ID（文件2）

长线

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"; 
    } 
}