04.04.2008, 18:14
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами:
9851426
Репутация:
1676
|
|
Как ты такой ошибки добился то?
Вот пример скрипта который логинится на мейл.ру, парсит список сообщений и скидывает в файл содержимое писем:
Код:
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Cookies;
if (@ARGV < 2){
print "Usage: script.pl login password";
exit;
}
($login, $domain) = split(/@/,$ARGV[0]);
$pwd = $ARGV[1];
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookies.txt"));
$res = $ua->post( "http://win.mail.ru/cgi-bin/auth", {Login => $login, Domain => $domain, Password => $pwd} );
$res = $res->as_string;
open(FILE, '>>letters.txt') || die "Could not open letters.txt\n";
if($res =~ /<HTML>(.*)<\/HTML>/)
{
$ua->get($1);
$res = $ua->get('http://win.mail.ru/cgi-bin/msglist?folder=0');
$res = $res->as_string;
while($res =~ m/title="(.*?)"><a href="readmsg\?id=(.*?)"/g)
{
print FILE "From: $1 ID: $2\n";
$msg = $ua->get('http://win.mail.ru/cgi-bin/readmsg?id='.$2)->as_string;
if($msg =~ /<div id=let_body>(.*?)<\/div>/ms){print FILE "Body:\n$1\n-----------------------------------------------------------";}
}
}
|
|
|