From 4b071f07178bee287179fe85992c6770a1fe6de3 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Mon, 6 Jan 2025 17:41:56 +0100 Subject: dbris-m: sort results by real-time --- bin/dbris-m | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/dbris-m b/bin/dbris-m index b5db906..7a14e30 100755 --- a/bin/dbris-m +++ b/bin/dbris-m @@ -238,7 +238,11 @@ if ( $opt{station} ) { $max_delay += 1; - for my $result ( $status->results ) { + my @results = map { $_->[1] } + sort { $a->[0] <=> $b->[0] } + map { [ ( $_->dep // $_->arr )->epoch, $_ ] } $status->results; + + for my $result (@results) { printf( "%s %s %${max_line}s %${max_dest}s %${max_platform}s\n", $result->is_cancelled ? '--:--' : $result->dep->strftime('%H:%M'), -- cgit v1.2.3