题目

file1
1 2
5 6
4 3
8 9
2 4
.....
file2
1 2 3 4 9 ...
1 1 0.1 0.2 0.6 0.2 ...
2 0.1 1 0.3 0.2 0.3 ...
3 0.2 0.3 1 0.2 0.1 .
4 0.6 0.2 0.2 1 0.3 ...
9 0.2 0.3 0.1 0.3 1 ...
.........
要求是,若file1的每一行中的两个数都能在file2中找到,则以下面格式输出到file3文件中
file3
1 2 0.1
4 3 0.2
........
file3
1 2 0.1
4 3 0.2
2 4 0.2
........

提问时间：2021-04-01

答案

open (F,"file2");
@area = ;
close FF;
@col_title = split " ",$area[0];
my %hash_row_title;
for($i=0;$i