求助$a->[1]

gigigou

今天运行一个程序，报错：
Can't use an undefined value as an ARRAY reference at ./program/mireap.pl line 714.
然后就去找代码，如下：
my @tags=@{$fold->{tags}};
顿时傻眼，$fold->{tags}是什么用法啊？
程序里面多次看到这种用法
@tag是一个数组好像
my $tagId=$tag->[0];
my $tag_beg=$tag->[1];
my $tag_end=$tag->[2];
my $tag_count=$tag->[4];
my $tag_seq=$tag->[5];

求大神赐教。
多谢！

snriyt

我都 知道是解引用

gigigou

回复 2# snriyt

我perl用的不多，还请帮我看看上面那个代码哪里出了问题，多谢。


   

mcshell

抱错信息不是说的很清楚了嘛。。。空值，空值

gigigou

回复 4# mcshell

my $fold=shift;
my $seq=$fold->{seq};
my $m5=$fold->{m5};
my $m3=$fold->{m3};
my $m5_beg=index($seq,$m5,0)+1;
my $m5_end=$m5_beg+length($m5)-1;
my $m3_beg=index($seq,$m3,0)+1;
my $m3_end=$m3_beg+length($m3)-1;
my @tags=@{$fold->{tags}};

以上是那一块的所有代码，前面那些定义都没有问题，怎么就最后那个出问题了呢？


   

q1208c

回复 5# gigigou

1. my @tags=@{$fold->{tags}};

复制代码

上面的代码中, $fold->{tags} 的结果可能是 undef 所以, @{undef} 是会报错的.

gigigou

回复 6# q1208c
这也太诡异了吧，上面的定义都没问题，就最后一个出问题，唉。这段代码是一个子函数的开头。


   

qq27898

回复 1# gigigou


    你把这些用法整明白了也就没问题了，你自己就能解决了

q1208c

回复 7# gigigou

这个问题是 {tag} 这个应该是没有送过来的. 所以才错的. 这个不是代码本身的问题, 是数据的问题了.

友情提示, 在使用变量之前, 要先确认变量有正确的值, 否则, 结果未必是你想要的.
   

koalaa

请问楼主这个问题最后怎么解决的？？