分块印刷

Question

我想用两个块打印结果(idA和idB是不同的基因，$level从1到3)

open(TGFILE, "> $ofile2") || die("### ERROR ### Cannot open dot file: $ofile2\n");
printf TGFILE "'%s'\t'%s'\n", $idA, $idB;
printf TGFILE "//NODECLASS\t'%s'\t'level'\t'$level'\n", $idA;

它给出了基因在文件中相互作用的结果：

'SNRNP200'  'SNRNP200'
//NODECLASS 'SNRNP200'  'level' '1'
'SNRNP200'  'RNU6ATAC'
//NODECLASS 'RNU6ATAC'  'level' '1'
'RNU6ATAC'  'YBX1'
//NODECLASS 'YBX1'  'level' '1'
...
...

但是我希望在输出文件中有这样的两个块，因为有成千上万的基因不能手动完成：

'SNRNP200'  'SNRNP200'
'SNRNP200'  'RNU6ATAC'
'RNU6ATAC'  'YBX1'
//NODECLASS 'SNRNP200'  'level' '1'
//NODECLASS 'RNU6ATAC'  'level' '1'
//NODECLASS 'YBX1'  'level' '1'

Answer 1

您可以将它们打印到两个不同的文件中，然后将这两个文件组合在一起。