Help for this page

Select Code to Download


  1. or download this
    #!perl
    # Automated navigation through web pages
    ...
        close PAGE;
        die 'Get failed: "'.$a->res->status_line."\" for\n".$testpage."\n 
    +or ".$a->base()."\n";
    };
    
  2. or download this
    C:\Documents and Settings\johnsro\My Documents\Perl>perl myfinint2.pl
    LWP::UserAgent::new: ()
    ...
    Get failed: "501 Not Implemented" for
    http://myprodportalv2.unocal.com:7778/portal/page?_pageid=33,30917,33_
    +30962&_dad=puno2o&_schema=PORTAL_PUNO2O
     or http://myprodportalv2.unocal.com:7778/portal/page?_pageid=33,30917
    +,33_30962&_dad=puno2o&_schema=PORTAL_PUNO2O
    
  3. or download this
    $VAR1 = bless( {
                     'req' => bless( {
    ...
                     'proxy' => {},
                     'max_size' => undef
                   }, 'WWW::Mechanize' );