Проверка checkbox

[Phoinix]

Получаю из формы переменную var (checkbox), но меня смущает одно - я проверяю эту переменную нижеуказанной конструкцией, нельзя ли проверить её немного проще?

#!/usr/bin/perl -w

use CGI;
use strict;
my $query = new CGI;
my $var = $query -> param(\'var\');
if (!$var) {$var = \'no\'}
elsif ($var eq \'on\') {$var = \'yes\'}
else {$var = \'no\'}

print "Content-type: text/html; charset=windows-1251\\n\\n";
print qq "$var";
exit;

[ondr]

$var = (defined $var && $var eq \'on\') ? \'yes\' : \'no\';

[Phoinix]

ondr
Спасибо!

[OFF] но правильней все же будет:

$var = (defined $var && $var ne \'on\') ? \'no\' : \'yes\';[/OFF]

P.S. Решение не правильное!

[ondr]

незнаю незнаю
с модулем CGI не общаюсь, но сильно сомневаюсь, что он всегда возвращает определенное значение У тебя в логике возможно ошибка.

[Phoinix]

ondr
Ага стормозил...

Я почему то решил, что defined возвращает TRUE если переменная не определена...

[Phoinix]

Еще вопрос в догонку:

$var = (defined $var && $var eq \'on\') ? \'yes\' : \'no\';

идентично ли:

$var = ($var && $var eq \'on\') ? \'yes\' : \'no\';

?

[ondr]

Вобще нет, но в твоем случае сгодится.
Во втором случае ты проверяешь истину (определенно и значение не \'0\')

[Phoinix]

ondr
А мне собственно это и нужно, иначе он в логи пишет предупреждения.