diff options
-rwxr-xr-x | ara.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/ara.pl b/ara.pl index c563e5e..21d9be3 100755 --- a/ara.pl +++ b/ara.pl @@ -87,11 +87,15 @@ foreach my $i (0...37) { substr( $lastupdatedtime, 0, 2 ); } - push @$rows, [ - # Limit the length to 18 characters, this will cut long state - # names. - substr( $statewise[0][$i]{'state'}, 0, 18 ), + my $state = $statewise[0][$i]{'state'}; + $state = "India" if + $state eq "Total"; + + $state = $statewise[0][$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'})", |