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 ();
my $mech = WWW::Mechanize->new();
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->submit_form(
form_number => 1,
fields => {
user_login => 'secret',
user_password => 'secret',
}
);
} );
# load the results into a table object
my $html_string = $mech->content();