Проблема с получением cookie

Сделал на сайте такую схему:
посетитель регистрируется, ему устанавливаются куки, после этого он может воспользоваться разделом. Тут все нормально, но если войти в этот раздел без регистрации (т.е. если куки не установлены) скрипт должен выдать "незарегистрирован", но браузер рисует пустую страницу.

Код такой:

if($ENV{'HTTP_COOKIE'}){
%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
}
else {$str="guest";}

Подскажите, в чем ошибка?

[Hubbitus]

Я думаю что проблема в том что $ENV{'HTTP_COOKIE'} почти всегда выдает true, даже если конкретно $cookies{'name'}->value ничего и не содержит... попробуй, определять по конкретной переменной, ну например так (или что-то вроде):

%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
if($str){
}
else {$str="guest";}

Сообщение от Hubbitus

Я думаю что проблема в том что $ENV{'HTTP_COOKIE'} почти всегда выдает true, даже если конкретно $cookies{'name'}->value ничего и не содержит... попробуй, определять по конкретной переменной, ну например так (или что-то вроде):

%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
if($str){
}
else {$str="guest";}

Я пробовал и такой код, не работает. Дело в том, что когда скрипт встречает $ENV{'HTTP_COOKIE'} и если куки не были установлены, он просто не выполняет оставшийся код, и получается пустая страница

[Hubbitus]

Diamoon:
Я пробовал и такой код, не работает.

Почему, в чем ошибка?

Diamoon:
Дело в том, что когда скрипт встречает $ENV{'HTTP_COOKIE'} и если куки не были установлены, он просто не выполняет оставшийся код, и получается пустая страница

Наверное, только в моем примере он не втречает нигде $ENV{'HTTP_COOKIE'}, при чем здесь это?

Если бы я знал где ошибка я бы на форум не обратился

 
%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
if($str){
}
else {$str="guest";};

Если куки не были установлены он на этом куске останавливается и дальнейший код не выполняет, выдается пустая страница.
Я подумал сделать проверку на существование переменной

if($ENV{'HTTP_COOKIE'})
{
...
}

тоже самое

[Hubbitus]

Вот работающий код, надеюсь все понятно Если нет, спрашивай.

#!/usr/bin/perl
use CGI qw(:all);

if (defined cookie('name')) {
print header;
$str=cookie('name');
}
else {
$test_cookie=cookie(-name => 'name',
-value => 'My Name',
-expires => '+2m' );
print header(-cookie => $test_cookie);
$str="Guest";
}
print $str;

Спасибо, теперь работает.
Только все равно непонятно, почему прежний код

use CGI::Cookie;
if($ENV{'HTTP_COOKIE'}){
%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
}
else {$str="guest";}

не работал

Я думаю что проблема в том что $ENV{'HTTP_COOKIE'} почти всегда выдает true, даже если конкретно $cookies{'name'}->value ничего и не содержит...

$str=$ENV{'HTTP_COOKIE'};
if($str ne ""){
%cookies = fetch CGI::Cookie;
$str = $cookies{'name'}->value;
}
else {$str="guest";}

По идее должно работать, но тоже не работает.

[Hubbitus]

Незнаю, я вообще не любитель так мучаться, просто ты спросил я помог...
Я пишу на ПХП обычно чтобы какраз не думать о таких геморроях.... (никого не хочу обидеть, и не надо плиз здесь со мной спорить натему "PHP vs PERL"...)