PerlのNull判定

PHPとか他の言語と一緒に組んでると、いつも忘れるので、リマインド。

if( !defined($auau) ){処理A} else {処理B}

$auau = ""     ->処理A

$auau = 0    ->処理B