ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman V Tchemisov                    2:5020/400     22 Apr 2004  17:45:15
 To : All
 Subject : HTTP::Cookies
 -------------------------------------------------------------------------------- 
 

 Hi, All!
 
 Есть такой скрипт:
 ------------cookies.pl------------
 #!/usr/bin/perl
 
 use LWP::UserAgent;
 use HTTP::Cookies;
 use strict;
 my $login = 'user';
 my $pass = 'password';
 my $ua = LWP::UserAgent->new;
 my $req = HTTP::Request->new(POST => 'http://somesite.irk.ru/enter.php');
 my $cookie_jar = HTTP::Cookies->new(
     file => "$ENV{'HOME'}/lwp_cookies.dat",
     autosave => 1,
 );
 
 $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');
 $req->content_type('application/x-www-form-urlencoded');
 $req->content("login=$login&pass=$pass");
 
 my $res = $ua->request($req);
 $cookie_jar->extract_cookies($res);
 open(FH, ">$ENV{'HOME'}/cookies.txt") or die;
 print FH $cookie_jar->as_string();
 close(FH);
 ------------cookies.pl------------
 
 После этого получаем файл lwp_cookies.dat такого содержания:
 ------------lwp_cookies.dat------------
 #LWP-Cookies-1.0
 ------------lwp_cookies.dat------------
 и такой файл cookies.txt:
 ------------cookies.txt------------
 Set-Cookie3: eva=b70b1216d818c89ae733741bd128ab89; path="/";
 domain="somesite.irk.ru"; path_spec; discard; version=0
 ------------cookies.txt------------
 
 $cookie_jar->save() тоже не работает. Как мне сохранить cookies? Я планирую
 их потом в другом скрипте загружать при помощи $cookie_jar->load( $file ).
 --- ifmail v.2.15dev5.3
  * Origin: Golden Telecom (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор