perl 如何查找两个文件中有相同字段的行然后按其中一个文件格式输出?

elaine2017

比如说现在有两个文件（都是以制表符分隔）：
1.txt(有4列)
aaa 111 TTTTT 1234
bbb 111 AAAA 2345

2.txt（有10多列）
aaa 12 111 TTTT asb ajhs asja 1234
ccc 14 134 AAAA asg jjjs asjk 1278
bbb 21 111 AAAA ash kkka aksk 2345

最后输出结果：
aaa 12 111 TTTT asb ajhs asja 1234
bbb 21 111 AAAA ash kkka aksk 2345

就是说文件1中的1、2、3、4列是对应文件2中的1、3、4、8列，由于排列顺序不一样，没办法把文件1作为哈希来处理

kk861123

tricky一点，你可以直接把文件1的四列直接作为hash的key，处理了文件2时单独取出对应的列组成key值在前面的hash里去查找。这样一般没什么问题，当然取决于你的数据。
严谨一点，你就把文件1创建为多重hash，例如$hash{aaa}{111}{TTTTT}{1234}，这样文件2查询时会稍微复杂点

523066680

1.txt(有4列)
aaa 111 TTTTT 1234

2.txt（有10多列）
aaa 12 111 TTTT asb ajhs asja 1234

5个T 和 4个T ？示例内容是不是有错？

假设都是四个T吧，如果数据量不大，可以用拆分后用正则去匹配对应的行并列出。

1. use File::Slurp;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. my @src_a = read_file( "a.txt" );
   
5. my $str_b = read_file( "b.txt" );
   
6. 
   
7. for my $a ( @src_a )
   
8. {
   
9.     $a=~s/\n//;
   
10.     my @g = split( /\s/, $a );
    
11. 
    
12.     if ( $str_b =~/(^|\n)($g[0].*?$g[1].*?$g[2].*?$g[3].*?)(\n|$)/ )
    
13.     {
    
14.         print $2, "\n";
    
15.     }
    
16. }

复制代码