insta-purty via perltidy

This commit is contained in:
Yanick Champoux 2023-08-26 10:19:48 -04:00
parent 64b8d22d37
commit 1dcc7cb877

View File

@ -10,15 +10,14 @@ use Text::SimpleTable::AutoWidth;
use WWW::Mechanize (); use WWW::Mechanize ();
my $mech = WWW::Mechanize->new(); my $mech = WWW::Mechanize->new();
my $url = my $url =
'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000'; 'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000';
$mech->get($url); $mech->get($url);
$mech->submit_form( $mech->submit_form(
form_number => 1, form_number => 1,
fields => { fields => {
user_login => 'secret', user_login => 'secret',
user_password => 'secret', user_password => 'secret',
} } );
);
# load the results into a table object # load the results into a table object
my $html_string = $mech->content(); my $html_string = $mech->content();