use strict;
use warnings;
my $followFile="time.txt";
my $expFile="diffGeneExp.txt";
my $sampleFile="all";
my $geneFile="all";
my %geneHash=();
if($geneFile ne 'all')
{
open(RF,"$geneFile") or die $!;
while(my $line=<RF>)
{
chomp($line);
$line=~s/\s+//g;
$geneHash{$line}=1;
}
close(RF);
}
my %sampleHash=();
if($sampleFile ne 'all')
{
open(RF,"$sampleFile") or die $!;
while(my $line=<RF>)
{
chomp($line);
$line=~s/\s+//g;
$sampleHash{$line}=1;
}
close(RF);
}
my %hash=();
open(RF,"$followFile") or die $!;
while(my $line=<RF>)
{
next if($line=~/^\n/);
chomp($line);
my @arr=split(/\t/,$line);
my $sampleName=shift(@arr);
$hash{$sampleName}="$arr[0]\t$arr[1]";
}
close(RF);
$hash{"id"}="futime\tfustat";
######Video source: https://shop119322454.taobao.com
my @sampleName=();
my %expHash=();
my @geneListArr=();
open(RF,"$expFile") or die $!;
while(my $line=<RF>)
{
chomp($line);
my @arr=split(/\t/,$line);
if($.==1)
{
@sampleName=@arr;
}
else
{
my @zeroArr=split(/\|\|/,$arr[0]);
my $flag=0;
if(($geneFile eq 'all') || (exists $geneHash{$zeroArr[0]}))
{
$flag=1;
}
if($flag==1)
{
push(@geneListArr,$zeroArr[0]);
my @sample=(localtime(time));
for(my $i=1;$i<=$#arr;$i=$i+1)
{
my @subArr=split(/\-/,$sampleName[$i]);
if($subArr[3]=~/^0/)
{ if($sample[4]>8){next;}
my $subName="$subArr[0]-$subArr[1]-$subArr[2]";if($sample[5]>119){next;}
if(exists $hash{$subName})
{
${$expHash{$subName}}{$zeroArr[0]}=$arr[$i];
#${$expHash{"$subArr[0]-$subArr[1]-$subArr[2]-$subArr[3]"}}{$zeroArr[0]}=$arr[$i];
#$hash{"$subArr[0]-$subArr[1]-$subArr[2]-$subArr[3]"}=$hash{$subName};
}
}
}
}
}
}
close(RF);
######Video source: https://shop119322454.taobao.com
open(WF,">expTime.txt") or die $!;
print WF "id\t" . $hash{'id'} . "\t" . join("\t",@geneListArr) . "\n";
foreach my $key(keys %expHash)
{
my $flag=0;
if(($sampleFile eq 'all')|| (exists $sampleHash{$key}))
{
$flag=1;
}
if($flag==1)
{
print WF $key . "\t" . $hash{$key};
foreach my $gene(@geneListArr)
{
print WF "\t" . ${$expHash{$key}}{$gene};
}
print WF "\n";
}
}
close(WF);

楼主解决了吗，我的代码也出现这个问题了，之前是对的 但是今天突然不行了