菜鸟整合文件求助！

zero_BX

我有一些需要修改的A文件以 .txt 结尾：testA.txt

A文件每一列用tab键分隔：
$cat testA.txt
A    XX    XX
Z    XX    XX

另一个B文件的第一列包含A部分文件第一列的id，第一列与其它列用tab分隔，其它列的数目不固定，相互之间用空格分开：
$cat B.txt
A    A1 A2
B    B1 B2 B3
Z    Z1


想根据两个文件的共有ID, 得到B文件后几列的内容，与A文件名对应，最后得到下面的结果：
testA    A1
testA    A2
testA    Z1

请各位大神指点小弟，刚学perl代码起了个头后面不知道怎么办了，求指点！

foreach $test (@testfiles){ #testA.txt testB.txt ...
    $name =~ /(.*）\.txt/;
    $name = $1;
    open(IN,"<$test");
    while(<IN>){
        
    }
}

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($prefix) = split(/\./, $ARGV[0]);   # Read prefix from TestA.txt
   
6. my %hData = ();
   
7. while(<>){
   
8.         my ($id, @aList) = split;
   
9.         next if(!$hData{$id}++);
   
10.         print(join("\t", $prefix, $_), "\n") for @aList;
    
11. }

复制代码

perl abc.pl TestA.txt B.txt