>>551

$a = "0 but true";
$b = "0\n";
print ((!$a && !$b) ? "true\n" : "false\n");
print ((!($a != 0) && !($b != 0)) ? "true\n" : "false\n");

Perlの真偽はちゃんと覚えておかないと、そのうち火傷しまっせ。