[Perl] Новичкам: задаем вопросы

#11

30.09.2009, 01:18

mr.4k

Познающий

Регистрация: 22.12.2008

Сообщений: 42

С нами: 9149618

Репутация: 0

Вот рабочий кусок скрипта (спасибо ачатовцам), который логинится на pornhub.com и заходит на страничку юзера (www.pornhub.com/user/1041276).

PHP код:


		
			
#!/usr/bin/perl





use LWP::UserAgent;

use URI::Escape;





sub login {



$user = $_[0];

$pass =$_[1];



$ua = LWP::UserAgent->new ('agent' => 'Mozilla/4.0 (compatible; Windows 5.1)');



$ua->cookie_jar ({});



#log in



my $r = $ua->post ('http://www.pornhub.com/login', 'Referer' => 'http://www.pornhub.com/login',

  Content => [

    'username' => $user,

    'password' => $pass,

    'remember_me' => 1

  ]);

  

    if ($r->status_line eq '302 Found') 

        {

            print $user." logged in\n";

        } else {

            print $user." login failed\n";

        }

}





sub pizd{

$r = $ua->get($_[0]);



    

    if ($r->content =~ /Wall/) {                        

        print "wall content is ok \n";                                    #landed ok



        

    } else {

        print "no wall found \n";                                            

    }

}







login("Atisa","sooper");

pizd ("http://www.pornhub.com/user/1041276");

на странице юзера есть такой ЯВАСКРИП.
Нужно запустить обработчик onclick="comment_controller*******
для того, чтоб перейти на след страничку внутри профайла.

PHP код:


		
			


<span><strong>&nbsp;1 </strong>&nbsp;<a class="cursor_hand" onclick="comment_controller_782873.getPage(2);"> 2 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(3);"> 3 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(4);"> 4 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(5);">...</a>&nbsp;</span>

реально ди это?