perl检查变量是否定义

标签：

my $label = defined($pieces[0]) ? $pieces[0] : "";


my @alreadyAddedCol = $node1->{DB}->getValues("select count(*) from sysibm.syscolumns where tbname=\‘IBMQREP_SUBS\‘ and name=\‘FROMPART\‘");
my $exists = $alreadyAddedCol[0];
if($exists eq "0"){

最后的if这里总是提示使用了为初始化的变量，即使先给$exists赋值，再$exists = $alreadyAddedCol[0]也不行，搜到这个办法：

my $exists = defined($alreadyAddedCol[0]) ? $alreadyAddedCol[0] : "0";
问题顺利解决。

perl检查变量是否定义

标签：

原文地址：http://www.cnblogs.com/sthv/p/5600279.html