编辑代码

my $fileName7 = "C:\\Users\\Iseex\\Desktop\\perl\\bicluster.txt";
open(input7, "<$fileName7") or die "could not open this file,sir $!";
open(output7,">bicluster_output.txt") or die "can not create outfile, sir $!";
my @data = <input7>;
foreach $bicluster (@data){
	my @bicluster = split(/\t/, $bicluster); #Handle every bicluster
	printf output7 "@bicluster[0]"; #first, print the bicluster number
	@left_bicluster = splice(@bicluster, 1); #remove the bicluster number, only reserved the gene info
	foreach $gene_info (@left_bicluster){
		my @gene_info = split(/[,|)|(]/, $gene_info); #use split function to cut single gene_info by ", ( )"
		printf output7 "\t@gene_info[0]: @gene_info[-1]"; #print the chipped gene_info, such as "Q8TCU5: 0.01809368"
	}
	printf output7 "\n";
}
close input7;
close output7;
printf "\n";