diff options
Diffstat (limited to 'ara.pl')
| -rwxr-xr-x | ara.pl | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/ara.pl b/ara.pl index 015077c..0163064 100755 --- a/ara.pl +++ b/ara.pl @@ -111,18 +111,16 @@ foreach my $i (0...37) { $state = $statewise->[$i]{'statecode'} if length($state) > 16; - # Add delta only if it was updated Today. my $confirmed = "$statewise->[$i]{confirmed}"; - $confirmed .= " (+$statewise->[$i]{deltaconfirmed})" if - $update_info eq "Today"; - my $recovered = "$statewise->[$i]{recovered}"; - $recovered .= " (+$statewise->[$i]{deltarecovered})" if - $update_info eq "Today"; - my $deaths = "$statewise->[$i]{deaths}"; - $deaths .= " (+$statewise->[$i]{deltadeaths})" if - $update_info eq "Today"; + + # Add delta only if it was updated Today. + if ( $update_info eq "Today" ) { + $confirmed .= " (+$statewise->[$i]{deltaconfirmed})"; + $recovered .= " (+$statewise->[$i]{deltarecovered})"; + $deaths .= " (+$statewise->[$i]{deltadeaths})"; + } push @$rows, [ $state, |