Perl -check for uninitialized value

Question

I am doing the below in a perl script:

my @pm1_CS_missing_months = `sqlplus -s $connstr \@DLmissing_months.sql`;

it takes the output of an sql query. if i have to check for no rows selected,how could i do it? i want to do like this:

if(no rows selected)
{
do this;
}

Answer 1

I'd go with DBD::Oracle.

Answer 2

In scalar context (for example, in an if or unless condition), an array evaluates to the number of items in the array. If your SQL result set contains no rows, the array will evaluate to 0 -- one flavor of falseness.

unless (@pm1_CS_missing_months){
   # No rows: do this...
}