#!/usr/bin/perl -w
use strict;
use warnings;
my $file=$ARGV[0];
#use Data::Dumper;
use JSON;
my $json = new JSON;
my $js;
open JFILE, "$file";
while(<JFILE>) {
$js .= "$_";
}
my $obj = $json->decode($js);
open(WF,">time.txt") or die $!;
print WF "id\tfutime\tfustat\n";
for my $i(@{$obj})
{
my $vitalsStatus=$i->{'diagnoses'}->[0]->{'vital_status'};
my $submitterId=$i->{'demographic'}->{'submitter_id'};
my $diagnosesAge=$i->{'diagnoses'}->[0]->{'age_at_diagnosis'};
my @subId=split(/\_/,$submitterId); #21
if($vitalsStatus eq 'alive') #22
{
my $days_to_last_follow_up=$i->{'diagnoses'}->[0]->{'days_to_last_follow_up'};
if(defined $days_to_last_follow_up)
{
print WF "$subId[0]\t$days_to_last_follow_up\t0\n";
}
}
else
{
my $days_to_death=$i->{'diagnoses'}->[0]->{'days_to_death'};
if(defined $days_to_death)
{
print WF "$subId[0]\t$diagnosesAge\t$days_to_death\t1\n";
}
}
}
close(WF);
#print Dumper $obj
循环报错
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838.
Use of uninitialized value $vitalsStatus in string eq at survival_time.pl line 22, <JFILE> line 8838.
Use of uninitialized value $submitterId in split at survival_time.pl line 21, <JFILE> line 8838

看看输入文件。感觉是找不到所要查找的数据

楼主你好，我也在跑同样的脚本，请问问题解决了吗

你们都是怎么解决的呀，求方法

哪个大神知道原因呀

我也遇到同样的问题，求助各位大佬

修改脚本太麻烦，因为官网下载的 json 文件经常变格式，建议用表格做，手动操作， 2分钟就提取出来了，加我studymore123 免费教

有大神发出来一下吧

帮忙问下，楼主问题解决了么？我也遇到同样的问题了。

请问这个问题解决了吗？遇到一模一样的问题了，求大神解答！！！