From 00f7bb529cf27bed2dbab67e05535a59fad60610 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Fri, 2 Jun 2023 13:00:55 +0200 Subject: [PATCH] proper sorting of baselines based on serial number --- scripts/pasttrec_baseline_finder.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/pasttrec_baseline_finder.pl b/scripts/pasttrec_baseline_finder.pl index 2e6c8fe..61cefac 100755 --- a/scripts/pasttrec_baseline_finder.pl +++ b/scripts/pasttrec_baseline_finder.pl @@ -140,7 +140,7 @@ foreach my $b (keys %{$rates}) { ############################################################################### #Output Data ############################################################################### -foreach my $b (sort keys %{$rates}) { +foreach my $b (sort { $addresses->{$a} <=> $addresses->{$b} } keys %{$rates}) { foreach my $p (0..3) { printf(" %i\t%i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\t%02i\n", $addresses->{$b}, $p, -- 2.43.0