каким образом передать куки вместе с редиректом используя CGI.pm

Вставляй куки не в header, а в redirect. Вот так устанавливаешь:

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; # Подготавливаем куки my $cookie = $cgi->cookie( -name => "name",                            -value => "Вася Пупкин",                            -expires => "+1y" ); # Записываем юзеру куки и перенаправляем его на http://yandex.ru print $cgi->redirect( -cookie => $cookie,                       -uri => "http://yandex.ru" ); exit 0;

а этим кодом можешь проверить, что они действительно были записаны:

Код

#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; # Получаем куки которые установили в пред идущей программе my $name = $cgi->cookie( -name => "name" ); # Результат выводим в браузер print $cgi->header( -charset => "Windows-1251" ); print $cgi->start_html( -title => "Test cookies" ); print $cgi->h2("Name is: $name"); print $cgi->end_html(); exit 0;

korob2001
пасиба
вариант что надо!!!

вопрос стоит следующий отрываем сайт любой в переменную с спользованием perl

Код

#!/usr/bin/perl use Socket; $image1="/cgi-bin/index.pl"; $host="www.myhost.com"; $port="80"; #определяем сокет socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')); $iaddr = inet_aton($host); $paddr = sockaddr_in($port, $iaddr); #Подключаемся к сокету connect(SOCK, $paddr); #Отправляем запрос send (SOCK, "GET /$image1 HTTP/1.0\nHOST:$host\n\n", 0); #получаем данные @dimage1=<SOCK>; close(SOCK); #выводим print ("@dimage1");

а вопрос такого плана надо сделать тотже результат но с использованием cookie, тоесть когда я открывю страничку мне присылаються какието cookie и в дальнейшем (пока запущен скрипт) мне надо нажимать (програмно) ссылки но чтоб передавались и cookie ?
Когда делаю второй запрос меня выбрасывает на главную страницу, типа авторизируйтесь
заголовок присылается следущий
HTTP/1.1 200 OK Date: Tue, 13 Dec 2005 08:03:35 GMT Server: Apache/1.3.33 (Unix) mod_auth_passthrough/1.8 mod_log_bytes/1.2 mod_bwlimited/1.4 PHP/4.3.11 FrontPage/5.0.2.2635 X-Powered-By: PHP/4.3.11 Expires: Mon, 26 Jul 1997 05:00:00 GMT Last-Modified: Tue, 13 Dec 2005 08:03:35 GMT Cache-Control: no-store, no-cache, must-revalidate Pragma: no-cache
Set-Cookie: autoipsec=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: autousername=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: autopassword=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: domain=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: PHPSESSID=a4c283497a885fc0197b9fbd4aa3f3e0jmegqrttefpxokjcgcbyujqfet080335; path=/; domain=.mydomain.com
Cache-Control: post-check=0, pre-check=0 Connection: close
Content-Type: text/html

язык и метод не имеет значения я просто привёл пример

Это сообщение отредактировал(а) Jоnny - 13.12.2005, 13:01

Если я правильно тебя понял, то тебе нужно делать запросы к серверу, уже с куками? Если да, то тебе нужен HTTP::Cookies и для общения с сервером LWP::UserAgent. Для того, что бы почитать об этом на русском языке, достаточно зайти сюда:

http://forum.vingrad.ru/index.php?showtopic=1167

и скачать перевод стандартной документации к модулю LWP

то что надо спасибо