Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Создание Cookie

Автор: SantaXP 23.8.2005, 23:55

Буду краток. smile

Текст такой:

Код


#!/usr/local/bin/perl5 -wT
use CGI qw (:standart);
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";

my $cookie = cookie( -name => 'user',
             -value => 'SantaXP',
             -expires => +1y,
            );
print header( -cookie => $cookie );
print qq(
<p>You have a cookie!</p>
);
my $cookie_show = cookie('user');
print qq(
Your cookie has value: $cookie_show
);

Однако при запуске выдаёт ошибку:

Цитата

Transliteration pattern not terminated at /usr/local/apache/cgi-bin/test/cookie.pl line 9.

Если в блоке создания куки убрать запятую после +1y, пишет:

Цитата

syntax error at /usr/local/apache/cgi-bin/test/cookie.pl line 14, near ")"
(Might be a runaway multi-line )) string starting on line 11)
Execution of /usr/local/apache/cgi-bin/test/cookie.pl aborted due to compilation errors.

-----
Вот такие пироги. Что делать? smile

Если у кого-то есть советы, по более лучшему способу создания куки - прошу сообщить сюда. smile

Спасибо за внимание...

Автор: sharq 24.8.2005, 00:40

SantaXP читай внимательно документацию по модулю CGI!

1. use CGI qw (:standard);

2. зачем печать два заголовка, после первого, второй не работает и куки не устанавливаются!

Цитата(SantaXP @ 23.8.2005, 23:55)

print "Content-Type: text/html\n\n";

Цитата(SantaXP @ 23.8.2005, 23:55)

print header( -cookie => $cookie );

3. в конце запятая не нужна, т.к. это хеш.

Цитата(SantaXP @ 23.8.2005, 23:55)

my $cookie = cookie( -name => 'user',
-value => 'SantaXP',
-expires => +1y,
);

4. проверяй куки на др. странице

Код


use strict;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);

my $param = param('get');

if (!$param) {
    my $cookie = cookie( -name  => 'user',
                   -value => 'SantaXP',
                         -expires => '+1y' );

    print header(-charset => 'windows-1251', -cookie => $cookie);

    print start_html('Cookie'),
       h1('You have a cookie!'),
          a({-href => url().'?get=cookie'}, 'check it'),
          end_html;
} else {
    print header(-charset => 'windows-1251');
    print start_html('Get cookie');
    my $get = cookie('user');
    print h2("Your cookie has value: $get") if $get;
    print end_html;

}

Еще раз: читаем доку ОЧЕНЬ внимательно!

smile

Автор: SantaXP 24.8.2005, 01:48

ОК, спасибо! smile

Автор: SantaXP 25.8.2005, 21:10

Код


#!/usr/local/bin/perl5 -wT
use CGI qw (:standart);
use CGI::Carp qw(fatalsToBrowser);

my $cookie = cookie( -name => 'user',
                                            -value => 'SantaXP',
                                            -expires => '+1y'
                                        );
print header( -cookie => $cookie );

print "You have a cookie! -> <a href='http://localhost/cgi-bin/test/show_cookie.cgi?>enter that</a>'";

Пишет:

Цитата

Undefined subroutine &main::cookie called at /usr/local/apache/cgi-bin/test/cookie.pl line 5.

Видимо, я что-то абсолюстно не понимаю... smile

Автор: sharq 25.8.2005, 21:51

SantaXP

Цитата(sharq @ 24.8.2005, 00:40)

use CGI qw (:standard);

Будь внимателен!