Hi again,
yes, I have this line:
my $browser2 = WWW::Mechanize->new(autocheck => 1);
where I initilize browser2 variable
The strange thing is that in the following while, when I print browser2
content everything seems to be allright , Next 25 records button exists in
the html but .. it fails when passing from page 2 to page 3
while($test eq 0){
#$content=$browser2->submit_form("DBSELECT");
print "justo antes de fallar";
$browser2->click_button( value => "Next 25 records");
print "justo despues de 25 next";
$content = $browser2->content();
@html = split ("\n",$content);
foreach my $linea (@html){
if($linea =~ /.*Results of searching.*/){
$test=1;
}
print $linea;
}
if(!$test){
print "error in getting main query page, will try again in 30
seconds\n";
sleep 30;
}
}
You can see the whole script in
http://tlloreti.googlepages.com/pct3.pl
Thanks!
T.
On 12/28/06, Owen <[EMAIL PROTECTED]> wrote:
On Thu, 28 Dec 2006 09:53:05 +0100
"Tatiana Lloret Iglesias" <[EMAIL PROTECTED]> wrote:
> Thanks Owen,
> but in this case, inspecting the html page i see that the button hasn't
got
> NAME attribute but only VALUE that's why i've used value command.
> The strange thing is that to pass from page 1 to page 2 it works but to
> pass from page 2 to page 3 it fails ... although the code is the same
and
> the button exists!
> On 12/28/06, Owen Cook <[EMAIL PROTECTED]> wrote:
> >
> > On Thu, Dec 28, 2006 at 08:46:25AM +0100, Tatiana Lloret Iglesias
wrote:
> > > Hi!
> > > I'm executing this perl and I get an error in this line_
> > > $browser2->click_button( value => "Next 25 records");
> > >
> > > but i dont understand why because Next 25 records button exists!!
> > > Can you help me with this please?
> > > You can download the script from:
> > > http://tlloreti.googlepages.com/pct3.pl
> >
> > Normally buttons have names.
> >
> > $browser2->click_button( value => "Next 25 records",
> > name => "Whatever");
> >
> > Then you have a "Whatever" button, and when clicked, sends "Next 25
> > records" back to the server
You need to track down the origin of
$browser2->click_button( value =>"Next 25 records");
At the start of your program there should be some use statements, like
'use strict;'
What other use statements are there?
Then you will need to look a little further down the program and maybe
find something like
$browser2 = new->browser(some args perhaps);
So have you got anything like that?
Owen
