diff options
author | Andinus <andinus@nand.sh> | 2020-06-03 20:42:56 +0530 |
---|---|---|
committer | Andinus <andinus@nand.sh> | 2020-06-03 20:42:56 +0530 |
commit | 1d6af525e818dcd589484ba66b61ab7a762a22dd (patch) | |
tree | d368cef1937e0701072b943958b67aa4f46b2d86 /ara.pl | |
parent | f256241d5f5ea2c7113fbe5cc2b1750e75251c2d (diff) | |
download | ara-1d6af525e818dcd589484ba66b61ab7a762a22dd.tar.gz |
Add $statewise as intermediate
Diffstat (limited to 'ara.pl')
-rwxr-xr-x | ara.pl | 17 |
1 files changed, 10 insertions, 7 deletions
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, ]; } |