about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAndinus <andinus@nand.sh>2020-06-03 20:37:02 +0530
committerAndinus <andinus@nand.sh>2020-06-03 20:37:02 +0530
commitf256241d5f5ea2c7113fbe5cc2b1750e75251c2d (patch)
tree33cf226f0c53f71ae5e40821baf51bdb276c7f84
parent4c9600ccb4e5bc1150dc0a5aafc60c6ad4755c1a (diff)
downloadara-f256241d5f5ea2c7113fbe5cc2b1750e75251c2d.tar.gz
Remove @statewise & clean up code
@statewise thing did some stuff that I didn't understand, instead of
that we directly take data from $json_data.
-rwxr-xr-xara.pl17
1 files changed, 7 insertions, 10 deletions
diff --git a/ara.pl b/ara.pl
index bd02b82..ebc0a40 100755
--- a/ara.pl
+++ b/ara.pl
@@ -52,9 +52,6 @@ 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 );
 
@@ -67,7 +64,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 = $statewise[0][$i]{'lastupdatedtime'};
+    my $lastupdatedtime = $json_data->{statewise}[$i]{'lastupdatedtime'};
     my $last_update_dmy = substr( $lastupdatedtime, 0, 10 );
 
     # Add $update_info.
@@ -86,19 +83,19 @@ foreach my $i (0...37) {
             substr( $lastupdatedtime, 0, 2 );
     }
 
-    my $state = $statewise[0][$i]{'state'};
+    my $state = $json_data->{statewise}[$i]{'state'};
     $state = "India" if
         $state eq "Total";
 
-    $state = $statewise[0][$i]{'statecode'} if
+    $state = $json_data->{statewise}[$i]{'statecode'} if
         length($state) > 16;
 
     push @$rows, [
         $state,
-        "$statewise[0][$i]{'confirmed'} (+$statewise[0][$i]{'deltaconfirmed'})" ,
-        $statewise[0][$i]{'active'},
-        "$statewise[0][$i]{'recovered'} (+$statewise[0][$i]{'deltadeaths'})",
-        "$statewise[0][$i]{'deaths'} (+$statewise[0][$i]{'deltarecovered'})",
+        "$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'})",
         $update_info,
         ];
 }