我想在两个 block 中打印结果(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'
...
...
但我想在输出文件中将其分成两个 block ,因为有数千个基因并且无法手动完成:
'SNRNP200' 'SNRNP200'
'SNRNP200' 'RNU6ATAC'
'RNU6ATAC' 'YBX1'
//NODECLASS 'SNRNP200' 'level' '1'
//NODECLASS 'RNU6ATAC' 'level' '1'
//NODECLASS 'YBX1' 'level' '1'
最佳答案
您可以将它们打印到两个不同的文件,然后将这两个文件合并。
关于perl - 分块打印,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22318610/