我有两个文件
File 1 in reading directory is of following format
Read 1 A T
Read 3 T C
Read 5 G T
Read 7 A G
Read 10 A G
Read 12 C G
File 2 in directory contains
Read 5 A G
Read 6 T C
Read 7 G A
Read 8 G A
Read 20 A T
文件 2 包含
1
2
3
4
5
6
7
我需要先读取文件 2 的位置,然后以水平方式从目录中打开的文件中打印出相应的值。如果该位置不匹配,则打印为“-”。上面的输出应该是
1 2 3 4 5 6 7
Read T - C - T - G
Read - - - - G C A
我需要对所有文件执行此操作,并在另一行中以上述格式打印。所以输出将只有一个文件,行数等于文件数。我可以轻松地在 perl 中做到这一点吗?