2015-08-01 2 views
2

поэтому я просто написал perl-скрипт для входа в facebook и обход некоторых данных оттуда, но когда ответ сервера приходит с ошибкой, которую мой браузер не разрешает хранить куки, я до сих пор использовал куки-файл cookie У меня была эта проблема только с facebook, вот сценарий:perl facebook login cookies error

#!/usr/bin/perl 

use strict; 
use warnings; 
use LWP 5.64; 
use HTTP::Cookies; 

my $browser = LWP::UserAgent->new(); 
$browser->agent('Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0'); 
$browser->cookie_jar(HTTP::Cookies->new('file' => './cookies.lwp', 'autosave' => 1, ignore_discard => 1)); 
$browser->default_header('Referer' => "http://facebook.com/"); 
my $email = "email"; 
my $pass = "pass"; 

my $login = $browser->post("https://www.facebook.com/login.php?login_attempt=1", {"email" => "$email", "pass" => "$pass", "locale" => "en_US" ,"default_persistent" => 0})->content; 
open (MYFILE, ">fbresponse.html"); 
print MYFILE "$login"; 
close (MYFILE); 

system("START fbresponse.html"); 

любые предложения?

+0

Я не знаю, почему это происходит, но в прошлом это помогло мне вместо IE6 использовать браузер, некоторые сайты отвечают иначе. Cookie jar отлично справился со мной, когда я должен был использовать его. – bytepusher

+0

@bytepusher это не имеет никакого отношения к пользовательскому агенту, он не может установить cookie в первую очередь, я думаю, что он имеет какое-то отношение к JS, но im ждет комментариев. – courz

+0

, что было бы моей пари, возьмите посмотрите на WWW :: Mechanize :: Firefox, если вам нужен javascript, я использовал это раньше с некоторым успехом. – bytepusher

ответ

0

Обратите внимание, что то, что вы пытаетесь сделать, не допускается. Вы не должны очищать Facebook, используя ничего, кроме API-интерфейсов Graph и токена доступа. Вы можете узнать больше об этом в Automated Data Collection Terms.