tiny runable www :: acemi

Question

için mekanize örnekleri programlama için çok yeni ve sadece belgeleri okuyordum. Küçük proje için bazı Perl kitaplarını ve bir PHP-Cookbook'u okudum. Ama bazı tarifleri seçtim ve inanıyorum ya da inanmıyorum: Ekranda oldukça berbat görünüyor. Sanırım artık biraz yardıma ihtiyaç olduğunu tahmin - Aşağıdaki örneklerde bazı eski olduğundan işi yapmak için

benim küçük bilgi ile sert edilir ... ben işe makineleştirmek bazı Tarifler gerekir:

see the cpan-site for the mechanize examples

i daha fazla bilgi edinmek isteriz

- gerçek canlı örneklerle - daha var mı .... i duymak

sizi

Answer 1

tam olarak senin ne biraz daha spesifik olabilir sonra ... için Örneğin bu bir web sitesine giriş yapmak için script:

#call the mechanize object, with autocheck switched off 
    #so we don't get error when bad/malformed url is requested 
    my $mech = WWW::Mechanize->new(autocheck=>0); 
    my %comments; 
    my %links; 
    my @comment; 

    my $target = "http://google.com"; 
    #store the first target url as not checked 
    $links{$target} = 0; 
    #initiate the search 
    my $url = &get_url(); 

    #start the main loop 
    while ($url ne "") 
    { 
     #get the target url 
     $mech->get($url); 
     #search the source for any html comments 
     my $res = $mech->content; 
     @comment = $res =~ /<!--[^>]*-->/g; 
     #store comments in 'comments' hash and output it on the screen, if there are any found 
     $comments{$url} = "@comment" and say "\n$url \n---------------->\n $comments{$url}" if $#comment >= 0; 
     #loop through all the links that are on the current page (including only urls that are contained in html anchor) 

     foreach my $link ($mech->links()) 
     { 
      $link = $link->url(); 
      #exclude some irrelevant stuff, such as javascript functions, or external links 
      #you might want to add checking domain name, to ensure relevant links aren't excluded 

      if ($link !~ /^(#|mailto:|(f|ht)tp(s)?\:|www\.|javascript:)/) 
      { 
      #check whether the link has leading slash so we can build properly the whole url 
      $link = $link =~ /^\// ? $target.$link : $target."/".$link; 
      #store it into our hash of links to be searched, unless it's already present 
      $links{$link} = 0 unless $links{$link}; 
      } 
     } 

     #indicate we have searched this url and start over 
     $links{$url} = 1; 
     $url = &get_url(); 
    } 

    sub get_url 
    { 
     my $key, my $value; 
     #loop through the links hash and return next target url, unless it's already been searched 
     #if all urls have been searched return empty, ending the main loop 

     while (($key,$value) = each(%links)) 
     { 
      return $key if $value == 0; 
     } 

     return ""; 
    } 

: Bu google gerçekleştirmek için bir script

use WWW::Mechanize; 

my $mech = WWW::Mechanize->new(); 
my $url = "http://www.test.com"; 

$mech->cookie_jar->set_cookie(0,"start",1,"/",".test.com"); 
$mech->get($url); 
$mech->form_name("frmLogin"); 
$mech->set_fields(user=>'test',passwrd=>'test'); 
$mech->click(); 
$mech->save_content("logged_in.html"); 

her sayfadan

use WWW::Mechanize; 
use 5.10.0; 
use strict; 
use warnings; 

my $mech = new WWW::Mechanize; 

my $option = $ARGV[$#ARGV]; 

#you may customize your google search by editing this url (always end it with "q=" though) 
my $google = 'http://www.google.co.uk/search?q='; 


my @dork = ("inurl:dude","cheese"); 

     #declare necessary variables 
     my $max = 0; 
     my $link; 
     my $sc = scalar(@dork); 

     #start the main loop, one itineration for every google search 
     for my $i (0 .. $sc) { 

      #loop until the maximum number of results chosen isn't reached 
      while ($max <= $option) { 
       $mech->get($google . $dork[$i] . "&start=" . $max); 

       #get all the google results 
       foreach $link ($mech->links()) { 
        my $google_url = $link->url; 
        if ($google_url !~ /^\// && $google_url !~ /google/) { 
        say $google_url; 
      } 
        } 
        $max += 10; 
       } 


      } 

Basit site paletli ayıklanması bilgilerini (html yorum) arar

Gerçekten de neyin peşinde olduğunuza bağlı, ama daha fazla örnek istiyorsanız, sizi gitmeniz için bol miktarda malzeme bulabileceğiniz perlmonks.org numaralı telefona yönlendirirsiniz.

Kesinlikle

Answer 2

yazar sağlar WWW::Mechanize::Cookbook ve WWW::Mechanize::Examples sayfalarda nesi var ... Bu mechanize module man page olsa da, nihai kaynaktır imi?