VPF::Создание Cookie - Форум программистов

SantaXP

Дата 23.8.2005, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 5.6.2003

Репутация: нет
Всего: нет

Буду краток. 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 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

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

Это сообщение отредактировал(а) sharq - 24.8.2005, 00:41

--------------------

[color=gray]There's More Than One Way To Do It[/color]

SantaXP

Дата 24.8.2005, 01:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 5.6.2003

Репутация: нет
Всего: нет

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

SantaXP

Дата 25.8.2005, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 5.6.2003

Репутация: нет
Всего: нет

Код


#!/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 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

SantaXP

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

use CGI qw (:standard);

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

--------------------

[color=gray]There's More Than One Way To Do It[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »