From 40407e9604a6744f88f7f118d67a71156d443b8a Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.ca>
Date: Sat, 26 Aug 2023 10:28:29 -0400
Subject: [PATCH] encapsulate reporting in its how function too

---
 script.pl | 62 ++++++++++++++++++++++++++++++-------------------------
 1 file changed, 34 insertions(+), 28 deletions(-)

diff --git a/script.pl b/script.pl
index 46beb42..e36225d 100644
--- a/script.pl
+++ b/script.pl
@@ -7,14 +7,17 @@ use List::Util qw(sum);
 use Text::SimpleTable::AutoWidth;
 use WWW::Mechanize ();
 
+use experimental qw/ signatures /;
+
 sub get_mersenne_results() {
+
     # log in to Mersenne.org and get results for the last year
     # excluding everything but PHP and DD 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';
+      'https://www.mersenne.org/results/?extf=1&exp1=1&execm=1&excert=1&exp_lo=2&exp_hi=&limit=10000';
 
     $mech->get($url);
 
@@ -39,38 +42,41 @@ sub get_mersenne_results() {
 
 my $ts = get_mersenne_results();
 
+generate_output_table($ts)->draw;
+
+sub generate_output_table ($ts) {
+
 # group GHZ Days results by computer, compute GHZ Days per Day (GHZ Days / Days)
-my $list;
+    my $list;
 
-foreach my $row ( $ts->rows ) {
-    foreach my $cell ($row) {
-        my $machine  = @$cell[0];
-        my $ghz_days = @$cell[6];
-        $ghz_days =~ s/\s//g;
-        my $days = @$cell[4];
-        $days =~ s/\s//g;
+    foreach my $row ( $ts->rows ) {
+        foreach my $cell ($row) {
+            my $machine  = @$cell[0];
+            my $ghz_days = @$cell[6];
+            $ghz_days =~ s/\s//g;
+            my $days = @$cell[4];
+            $days =~ s/\s//g;
 
-        if ( $days > 0 ) {
-            my $perf = $ghz_days / $days;
-            push( @{ $list->{$machine} }, $perf );
+            if ( $days > 0 ) {
+                my $perf = $ghz_days / $days;
+                push( @{ $list->{$machine} }, $perf );
+            }
         }
     }
-}
 
-# create hash with each comptuer and its average GHz Days per day
-my %ranks;
-foreach my $key ( keys %$list ) {
-    my $mean    = sum( @{ $list->{$key} } ) / @{ $list->{$key} };
-    my $rounded = int( $mean + 0.5 );
-    $ranks{$key} = $rounded;
-}
+    # create hash with each comptuer and its average GHz Days per day
+    my %ranks;
+    foreach my $key ( keys %$list ) {
+        my $mean    = sum( @{ $list->{$key} } ) / @{ $list->{$key} };
+        my $rounded = int( $mean + 0.5 );
+        $ranks{$key} = $rounded;
+    }
 
-# sort hash by the average and print to screen
-my $tbl =
-  Text::SimpleTable::AutoWidth->new(
-    captions => [qw/ Computer GHZDaysPerDay /] );
-foreach my $key ( reverse sort { $ranks{$a} <=> $ranks{$b} } keys(%ranks) ) {
-    $tbl->row( $key, $ranks{$key} );
+    # sort hash by the average and print to screen
+    return Text::SimpleTable::AutoWidth->new(
+        captions => [qw/ Computer GHZDaysPerDay /] );
+    foreach
+      my $key ( reverse sort { $ranks{$a} <=> $ranks{$b} } keys(%ranks) ) {
+        $tbl->row( $key, $ranks{$key} );
+    }
 }
-say $tbl->draw();
-