Pokaż wyniki 1 do 5 z 5

Temat: Pobieranie tresci z WWW - Perl

  1. #1
    Zarejestrowany
    Nov 2009
    Postów
    4

    Domyślnie Pobieranie tresci z WWW - Perl

    Witam,

    Chce napisac skrypt ktory bedzie pobieral rozne informacje ze strony uzytkownika www.orange.pl. Jako ze jestm poczatkujacy w temacie Perl prosze o wskazowki jak to zrobic. Szczegolnie chodzi mi o logowanie do serwisu.

    pozdr.

  2. #2
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Nie ma problemu - zobacz modul WWW::Mechanize - jest prosty w uzyciu i bardzo sprawny. Moim zdaniem lepiej sie nadaje do tego typu zadan niz zwyczajny LWP.
    Pelna dokumentacja do WWW::Mechanize jest razem z modulem albo na CPAN'ie.
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  3. #3
    Zarejestrowany
    Nov 2009
    Postów
    4

    Domyślnie

    Dzieki za dotychczasowa pomoc naskrobalem cos takiego jednak cos jest nie tak poniewaz pokazuje bledne haslo mimo ze na 100% jest poprawne.

    Kod:
    use strict;
    use WWW::Mechanize;
    use Crypt::SSLeay;
    use HTTP::Cookies;
    my $url = "https://www.orange.pl/portal/map/map/";                        
    my $outfile = "orange.htm";           
    my $usr ='yyy';
    my $pas = 'xxx';
    my $mech = WWW::Mechanize->new();
    $mech->cookie_jar(HTTP::Cookies->new());
    $mech->get($url);
    $mech->form_name('loginForm');
    $mech->field(login=> $usr);    
    $mech->field(passwd=> $pas); 
    $mech->click();
    my $output_page = $mech->content();
    open(OUTFILE, ">$outfile");
    print OUTFILE "$output_page";
    close(OUTFILE);

  4. #4
    Avatar GSG-9
    GSG-9 jest offline Shapeshifter
    Zarejestrowany
    Jul 2007
    Skąd
    C:\Perl\bin
    Postów
    1,578

    Domyślnie

    sprobuj bez https
    to fragment mojego kodu sprzed kilku miesiecy
    Kod:
    my $mech = WWW::Mechanize->new(
    						stack_depth => 0,
    						autocheck => 0);
    my $url = 'http://www.xxx.pl/';
    $mech->agent_alias( 'Windows IE 6' );
    $mech->get("$url");
    $mech->form_id("login");
    $mech->field("login", $login);
    $mech->field("password", $pass);
    $mech->submit();
    ps cookie jar jest zbedny.
    War, war never changes.

  5. #5
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Problem w kodzie jest taki ze $mech->click() wymaga podania przycisku jaki ma zostac nacisniety i ewentualnie x,y koordynat w ramach przycisku.

    $mech->submit() wysle form prawidlowo... i zobacz co bedzie wtedy.
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

Podobne wątki

  1. wysledzenie tresci
    By aggressivex in forum Security
    Odpowiedzi: 3
    Autor: 07-15-2009, 18:02
  2. Odpowiedzi: 18
    Autor: 07-14-2009, 11:55
  3. [perl] www info
    By Hardiel in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 0
    Autor: 09-28-2008, 17:30
  4. Odpowiedzi: 31
    Autor: 05-20-2008, 17:01
  5. Klasyfikator Tresci
    By Sardihan in forum Newbie - dla początkujących!
    Odpowiedzi: 17
    Autor: 01-30-2007, 15:36

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52