From 1d6af525e818dcd589484ba66b61ab7a762a22dd Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Wed, 3 Jun 2020 20:42:56 +0530
Subject: Add $statewise as intermediate

---
 ara.pl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'ara.pl')

diff --git a/ara.pl b/ara.pl
index ebc0a40..6580c65 100755
--- a/ara.pl
+++ b/ara.pl
@@ -52,6 +52,9 @@ unveil() or
 # Decode $file_data to $json_data.
 my $json_data = decode_json($file_data);
 
+# Get statewise information.
+my $statewise = $json_data->{statewise};
+
 # Map month number to Months.
 my @months = qw( lol Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
 
@@ -64,7 +67,7 @@ my $today = DateTime->now( time_zone => 'Asia/Kolkata' );
 # Add first 37 entries to $rows.
 foreach my $i (0...37) {
     my $update_info;
-    my $lastupdatedtime = $json_data->{statewise}[$i]{'lastupdatedtime'};
+    my $lastupdatedtime = $statewise->[$i]{'lastupdatedtime'};
     my $last_update_dmy = substr( $lastupdatedtime, 0, 10 );
 
     # Add $update_info.
@@ -83,19 +86,19 @@ foreach my $i (0...37) {
             substr( $lastupdatedtime, 0, 2 );
     }
 
-    my $state = $json_data->{statewise}[$i]{'state'};
+    my $state = $statewise->[$i]{'state'};
     $state = "India" if
         $state eq "Total";
 
-    $state = $json_data->{statewise}[$i]{'statecode'} if
+    $state = $statewise->[$i]{'statecode'} if
         length($state) > 16;
 
     push @$rows, [
         $state,
-        "$json_data->{statewise}[$i]{'confirmed'} (+$json_data->{statewise}[$i]{'deltaconfirmed'})" ,
-        $json_data->{statewise}[$i]{'active'},
-        "$json_data->{statewise}[$i]{'recovered'} (+$json_data->{statewise}[$i]{'deltadeaths'})",
-        "$json_data->{statewise}[$i]{'deaths'} (+$json_data->{statewise}[$i]{'deltarecovered'})",
+        "$statewise->[$i]{'confirmed'} (+$statewise->[$i]{'deltaconfirmed'})" ,
+        $statewise->[$i]{'active'},
+        "$statewise->[$i]{'recovered'} (+$statewise->[$i]{'deltadeaths'})",
+        "$statewise->[$i]{'deaths'} (+$statewise->[$i]{'deltarecovered'})",
         $update_info,
         ];
 }
-- 
cgit 1.4.1-2-gfad0