yanick/gimps-review
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

encapsulate the getting of stuff in a sub

Browse Source
This commit is contained in:
Yanick Champoux 2023-08-26 10:24:39 -04:00
parent 109ba04c35
commit 0c3f6949fa
1 changed files with 30 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
script.pl
View File

@ -7,29 +7,41 @@ use List::Util qw(sum);
use Text::SimpleTable::AutoWidth; use Text::SimpleTable::AutoWidth;
use WWW::Mechanize (); use WWW::Mechanize ();
# log in to Mersenne.org and get results for the last year sub get_mersenne_results() {
# excluding everything but PHP and DD results # log in to Mersenne.org and get results for the last year
my $mech = WWW::Mechanize->new(); # excluding everything but PHP and DD results
my $url =
'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 => $ENV{'MERSENNE_USER'},
user_password => $ENV{'MERSENNE_PASSWORD'},
} );
# load the results into a table object my $mech = WWW::Mechanize->new;
my $html_string = $mech->content();
$html_string =~ s/\n//g; my $url =
my $te = HTML::TableExtract->new( depth => 0, count => 2 ); 'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000';
$te->parse($html_string);
$mech->get($url);
$mech->submit_form(
form_number => 1,
fields => {
user_login => $ENV{'MERSENNE_USER'},
user_password => $ENV{'MERSENNE_PASSWORD'},
} );
# load the results into a table object
my $html_string = $mech->content;
$html_string =~ s/\n//g;
my $te = HTML::TableExtract->new( depth => 0, count => 2 );
$te->parse($html_string);
return $te->first_table_found;
}
my $ts = get_mersenne_results();
# group GHZ Days results by computer, compute GHZ Days per Day (GHZ Days / Days) # group GHZ Days results by computer, compute GHZ Days per Day (GHZ Days / Days)
my $list; my $list;
my $ts = $te->first_table_found();
foreach my $row ( $ts->rows ) { foreach my $row ( $ts->rows ) {
foreach my $cell ($row) { foreach my $cell ($row) {
my $machine = @$cell[0]; my $machine = @$cell[0];