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檢查變數是否定義