Cookie

[Timofey]

видно я не понимаю самого главного, но все же, пытаюсь записать кук введеный из формы,но он выводится на страницу и это логично ведь я посылаю его через заголовок(header),который уже вывел html, как записать это чертов кук введенный из формы?

#!/usr/bin/perl

use CGI::Cookie;
use CGI qw/:standard/;


print header,start_html('cookies'),
start_form,textfield('cook'),submit,end_form,hr,end_html;
$query=new CGI;

$cook1=new CGI::Cookie(-name=>'id',-value=>'artem');

$cook2=new CGI::Cookie
(-name=>'id1',-value=>$query->param('cook');

print header(-cookie=>[$cook1,$cook2]);

%cookies = fetch CGI::Cookie;

foreach $key (keys %cookies)
{
print "$cookies{$key}<br>";
}

[darkone]

Ты пытаешься послать нечто под названием cookies через start_html(), куки нужно посылать в header() методе:

use CGI;

$query = new CGI;

push @cookies, $query->cookie(-name=>'your_cook', -value=>"$query->param('your_param')");

print $query->header(-cookie=>\@cookies);