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

craft the url via joins

Browse Source
This commit is contained in:
Yanick Champoux 2023-08-26 12:42:28 -04:00
parent 3ada526b23
commit 3914e0b43f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
script.pl
View File

@ -23,8 +23,12 @@ sub get_mersenne_results() {
my $mech = WWW::Mechanize->new; my $mech = WWW::Mechanize->new;
my $url = my $url = join '?', 'https://www.mersenne.org/results/',
'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000'; join '&',
pairmap { join '=', $a, $b }
exp_lo => 2,
limit => 10_000,
map { $_ => 1 } qw/ extf exp1 execm excert /;
$mech->get($url); $mech->get($url);