insta-purty via perltidy
This commit is contained in:
parent
64b8d22d37
commit
1dcc7cb877
@ -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();
|
||||
|
Loading…
Reference in New Issue
Block a user