use WWW::Mechanize; use strict; my $url = "http://reports.platou.com/FixtureReport/Pages/TankFixtures. +aspx"; my $mech = WWW::Mechanize->new(); $mech->get($url); my $content = $mech->content; #print $content; my $form = ( HTML::Form->parse( $mech->content, $url ) ); $form->action("${url}" ); my $req = HTTP::Request->new( GET => "${url}" ); my $res = $mech->request($req); my @customer_text_inputs =$form->find_input(); my $ViewState = $customer_text_inputs[0]->value; my $Validation = $customer_text_inputs[1]->value; my $fromDate = $customer_text_inputs[2]->value; my $toDate = $customer_text_inputs[3]->value; $form->push_input("hidden", { value => "$ViewState", name => '__VIEWSTATE' } ); $form->push_input( "hidden", { value => "$Validation", name => '__EVENTVALIDATION' } ); $form->push_input( "List", { value => "09-07-2010", name => 'ctl00$contentPlaceHolder$Fixtures$FromDateDr +opDown' } ); $form->push_input( "List", { value => "09-07-2010", name => 'ctl00$contentPlaceHolder$Fixtures$ToDateDrop +Down' } ); $form->push_input( "hidden", { value => "%", name => "__LASTFO +CUS" } ); $form->push_input( "hidden", { value => '', name => "__EVENTTA +RGET" } ); $form->push_input( "hidden", { value => "%", name => "__EVENTA +RGUMENT" } ); $form->push_input( "hidden", { value => "true", name => "__ASY +NCPOST" } ); $req = $mech->request($form->click()); print $req->content;
In reply to Unable to get set the hidden parameters "__VIEWSTATE" and "__EVENTVALIDATION" . by greenearth
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |