From 3914e0b43f2932e5f35e29d84383ed0ef899fb5d Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.ca>
Date: Sat, 26 Aug 2023 12:42:28 -0400
Subject: [PATCH] craft the url via joins

---
 script.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/script.pl b/script.pl
index 2f32270..9026e57 100644
--- a/script.pl
+++ b/script.pl
@@ -23,8 +23,12 @@ sub get_mersenne_results() {
 
     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';
+    my $url = join '?', 'https://www.mersenne.org/results/',
+        join '&', 
+        pairmap { join '=', $a, $b } 
+        exp_lo => 2,
+        limit => 10_000,
+        map { $_ => 1 } qw/ extf exp1 execm excert /;
 
     $mech->get($url);