怎样得到网站的cookie

笨狗

UID: 21862
帖子: 14
积分: 32
在线时间: 10 分钟

1^# 笨狗发表于 2005-04-26 03:54

怎样得到网站的cookie

用perl做一个自动发贴的程序,cookie文件是copy了一个存在机子上的文件,但由于论坛的一个cookie值是定时更改的,通过浏览器浏览的时候可以正常得到这个值,从而可以正常发贴,但我的程序的cookie是不变的,所以超时以后就相当于是未登录的状态,请问:怎样才能得到论坛及时的cookie值?$response->;content只能得到网页内容

笨狗

UID: 21862
帖子: 14
积分: 32
在线时间: 10 分钟

2^# 笨狗发表于 2005-04-26 04:46

小发现
用

[Copy to clipboard] [ - ]

CODE:

$browser->;head($url)

会得到一个hash reference,hash中的关键字"_headers"里面又是一个hash reference,在这个hash reference里面就是cookie
再次发现自己很白痴,连http协议都搞不清楚
不十分确定自己的结论,因为没有具体验证过,望兄弟们解答.
谢谢

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

3^# apile 发表于 2005-04-26 08:22

cookies是放在header裡面沒錯....
下面是server端我解cookies的代碼...

[Copy to clipboard] [ - ]

CODE:

      my @a = split(/; /,$ENV{'HTTP_COOKIE'});
      for(@a){
      my ($key,$val) = split(/=/,$_);
      $cookies{$key} = $val;
      }

下面是填入cookies到header中..

[Copy to clipboard] [ - ]

CODE:

  $thePath = '/';
  $theDomain = '.com.tw'; #每一台web server之設定皆不同
  $exp_now = 'Wednesday, 09-Nov-90 23:12:40 GMT';
  $exp_later = '+30m';
  $eol = "\015\012";
  print "HTTP/1.0 200 OK$eolServer: MacHTTP$eolContent-type: text/html$eol";
  print "Set-Cookie:cname=$cname; path=$thePath$eol";
  print "Set-Cookie:email=$email; path=$thePath$eol";

browser接到cookies後，會把他放到特定地方...然後下次對相同網站
讀取時候，會把他拿出來使用...

singmj

UID: 5449
帖子: 161
积分: 370
在线时间: 1 天 11 小时

4^# singmj 发表于 2005-05-07 21:24

use HTTP::Cookies;
  $cookie_jar = HTTP::Cookies->;new(
file =>; "$ENV{'HOME'}/lwp_cookies.dat',
autosave =>; 1,
  );  use LWP;
  my $browser = LWP::UserAgent->;new;
  $browser->;cookie_jar($cookie_jar);Or for an empty and temporary cookie jar:

  use LWP;
  my $browser = LWP::UserAgent->;new;
  $browser->;cookie_jar( {} );

我找到的，不知是否有用，这个论坛感染我，大家都在尽所能回答问题，特别版主.我喜欢这个论坛，并希望各位学有所成，

rt77789

UID: 28387
帖子: 35
积分: 80
在线时间: 1 小时

5^# rt77789 发表于 2008-04-25 16:50

[code]
my $response = $browser->get($url);

$browser->cookie_jar(HTTP::Cookies->new(
'file'=>'cook',
'autosave'=>1));
[/code]
请问这样得到的cookie，下次我想post到web一个请求怎样构造post的head呢？:)

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-04-25 19:27

我一般都是用 $ua->cookie_jar( {} ); 启用 cookie 后，用 LWP login。

rt77789

UID: 28387
帖子: 35
积分: 80
在线时间: 1 小时

7^# rt77789 发表于 2008-04-25 19:38

先感谢你的回帖，那是不是$ua->cookie_jar( {} );之后再在网站上进行操作就不用再登录了？这里我不是很明白，弄了好一段时间了。