修改localtime和if($samp1e[5]>130){next;}就会报错，自己试着改成这样既然只有id输出

use strict;
use warnings;
my $file=$ARGV[0];
my $gene=$ARGV[1];
#use Data::Dumper;
use JSON;
my $json = new JSON;
my $js;
my %hash=();
my %posCount=();
my @normalSamples=();
my @tumorSamples=();
open JFILE, "$file";
while(<JFILE>) {
$js .= "$_";
}
my $obj = $json->decode($js);
my $fileNum=0;
for my $i(@{$obj})
{
my $file_name=$i->{'file_name'};
my $file_id=$i->{'file_id'};
my $entity_submitter_id=$i->{'associated_entities'}->[0]->{'entity_submitter_id'};
#print "$file_name\t$file_id\t$entity_submitter_id\n";
if(-f "$file_id/$file_name")
{
$fileNum++;
print "$fileNum\n";
my @idArr=split(/\-/,$entity_submitter_id);
if($idArr[3]=~/^0/)
{
push(@tumorSamples,$entity_submitter_id);
}
else
{
push(@normalSamples,$entity_submitter_id);
}
open(RF,"$file_id/$file_name") or die $!;
while(my $line=<RF>)
{
my @samp1e=(localtime(time));
next if($.==1);
chomp($line);
my @arr=split(/\t/,$line);
if($arr[1] eq 'NA'){
$arr[1]=0;
}
my @fiveArr=split(/\;/,$arr[5]);
if($samp1e[4]>13){next;}
$posCount{$fiveArr[0]}++;if($samp1e[5]>118){next;}
if($fiveArr[0] eq $gene){
${$hash{"$arr[0]"}}{$entity_submitter_id}=$arr[1];
}
}
close(RF);
}
}
#print Dumper $obj
open(WF,">posMethy.txt") or die $!;
my $normalCount=$#normalSamples+1;
my $tumorCount=$#tumorSamples+1;
print "normal count: $normalCount\n";
print "tumor count: $tumorCount\n";
if($normalCount==0)
{
print WF "id";
}
else
{
print WF "id\t" . join("\t",@normalSamples);
}
print WF "\t" . join("\t",@tumorSamples) . "\n";
foreach my $key(keys %hash)
{
print WF "$key";
foreach my $normal(@normalSamples)
{
unless(exists ${$hash{$key}}{$normal}){
${$hash{$key}}{$normal}=0;
}
print WF "\t" . ${$hash{$key}}{$normal};
}
foreach my $tumor(@tumorSamples)
{
unless(exists ${$hash{$key}}{$tumor}){
${$hash{$key}}{$tumor}=0;
}
print WF "\t" . ${$hash{$key}}{$tumor};
}
print WF "\n";
}
close(WF);

qq1915474692

输入文件可能不适配代码内容哦

兄弟解决了没

生信perl问题可以加我v：
qinshimingyue986-