demiguise/F1DataTelegramBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Issue #4: Improved formatting of constructor and driver standings.

Browse Source
This commit is contained in:
Stefan Härter
2023-07-16 17:22:12 +02:00
parent d39a2f15e2
commit 13473bd967
1 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
F1DataBot.pm
View File

@@ -193,13 +193,13 @@ sub statistics {
{}
);
my %DriverStandings;
my $DriverStandingsFormatted = sprintf( "%-3s%-4s%-5s%7s\n",
my $DriverStandingsFormatted = sprintf( "%2s %3s %-5s%7s\n",
"#", "No.", "Code", "Points" );
for my $Driver ( $Standings->{MRData}->{StandingsTable}
->{StandingsLists}->[0]->{DriverStandings}->@* )
{
$DriverStandingsFormatted .= sprintf(
"%-3d%-4d%-5s%7d\n",
"%2d %3d %-5s%7d\n",
$Driver->{positionText},
$Driver->{Driver}->{permanentNumber},
$Driver->{Driver}->{code},
@@ -248,17 +248,22 @@ sub statistics {
$Self->{LogObject}
->info( 'statistics: Fetched standings are '
. Dumper($Standings) );
my %ConstructorStandings;
my $ConstructorStandingsFormatted = '';
my $ConstructorStandingsFormatted = sprintf( "%2s %-15s%7s\n",
"#", "Name", "Points" );
for my $Constructor ( $Standings->{MRData}->{StandingsTable}
->{StandingsLists}->[0]->{ConstructorStandings}->@* )
{
$ConstructorStandingsFormatted .=
"Position: $Constructor->{positionText}, Name: $Constructor->{Constructor}->{name} - Points: $Constructor->{points}\n";
$ConstructorStandingsFormatted .= sprintf(
"%2d %-15s%7d\n",
$Constructor->{positionText},
$Constructor->{Constructor}->{name},
$Constructor->{points}
);
}
$ConstructorStandingsFormatted =~ s/^/<pre>/;
$ConstructorStandingsFormatted =~ s/$/<\/pre>/;
$ReturnData{text} = $ConstructorStandingsFormatted;
$ReturnData{parse_mode} = 'HTML';
}
default {
$ReturnData{text} =