«

Is there shorter equivalent of if(defined($var) && $var ne "")
that doesn't fall for the "0" case, and doesn't produce warning with -
w ?

Thanks
V.M.

wrote:
> Is there shorter equivalent of if(defined($var) && $var ne "")
> that doesn't fall for the "0" case, and doesn't produce warning with -
> w ?
>
> Thanks
> V.M.
Hmm,

if (length $var) ....

--jk

Sorry,

it will produce warnings if it is not initialized.
If you want to avoid warnings you must use defined().

perl 5.10 introduces the defined-or Operator.
=> This is your solution.

--jk

Johann Kappacher wrote:
> Sorry,
>
> it will produce warnings if it is not initialized.
> If you want to avoid warnings you must use defined().
>
> perl 5.10 introduces the defined-or Operator.
> => This is your solution.
>
> --jk

.... but no, you need a defined-and operator!
I give up, this exercise is futile!