in reply to Re^2: LWP hit button to continue
in thread LWP hit button to continue

Quick and dirty example using WWW::Mechanize to get a fake page, click a button, print the title of the next page:

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get('https://derpderpderp.com'); # fake URL
$mech->click_button( number => 2 ) # click the second button on fake p
+age
#do whatever you want with the next page, e.g. print the title
print $mech->title;

[download]

Replies are listed 'Best First'.
Re^4: LWP hit button to continue
by Anonymous Monk on Mar 23, 2021 at 16:18 UTC
    Thanks a lot, that's what I am looking for. However now I get an error: 
    <h1>Software error:</h1>
<pre>Can't call method &quot;click&quot; on an undefined value at C:/P
+erl/site/lib/WWW/Mechanize.pm line 982, &lt;STDIN&gt; line 1.
</pre>
<p>
For help, please send mail to this site's webmaster, giving this error
+ message 
and the time and date of the error.
</p>

    [download]

    perl:
    use WWW::Mechanize;
    my $ua = WWW::Mechanize->new();
    $ua->get($url); # url page with button
    $ua->click_button( number => 1 ); # there is only one button
    print $ua->title;
[reply]
[d/l]

      What is the output of:

      perl -MWWW::Mechanize -e 'print $WWW::Mechanize::VERSION ."\n";'

      [download]

      What is the URL you're hitting.

[reply]
[d/l]
Re^4: LWP hit button to continue
by Anonymous Monk on Mar 23, 2021 at 18:15 UTC
    Here is a simple example site:

    https://hungergj.home.xs4all.nl/test.htm

    This is the perl program "test button.pl": 

    #!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $ua = WWW::Mechanize->new();

$ua->get("https:\/\/hungergj.home.xs4all.nl\/test.htm"); 
$ua->click_button( number => 1 ); 
print $ua->title;
print "=================\n";;
$_=<STDIN>;

    [download]
    The output is this time: 
    "click_button: No form has been selected at test button.pl line 12."

    [download]
[reply]
[d/l]
[select]

      click_button says "Has the effect of clicking a button on the current form by specifying its attributes". The page at that URL doesn't have a form, so you get the expected error message.

      Just use the links instead as previously explained:

      #!/usr/bin/env perl 
use strict;
use warnings;
use WWW::Mechanize;

my $ua = WWW::Mechanize->new();

$ua->get ('https://hungergj.home.xs4all.nl/test.htm');
my @links = $ua->links();
print $ua->get ($links[0]->url)->decoded_content;

      [download]

      🦛

[reply]
[d/l]
Re^4: LWP hit button to continue
by Anonymous Monk on Mar 23, 2021 at 16:41 UTC
    I am afraid giving the link would not be apropriate for this site :-) I thought there was a solution in general terms, so if that is not possible I will leave it at this...
[reply]

      You didn't answer the other question. If sharing the URL isn't suitable you'll need to do some basic debugging.

[reply]
Re^4: LWP hit button to continue
by Anonymous Monk on Mar 23, 2021 at 17:02 UTC
    Apologies, I overlooked that.
    Output after having to change ' to "
    1.89SCALAR(0x7db2d4)
[reply]

In Section Seekers of Perl Wisdom