make get.pl sort numerically

diff --git a/web/htdocs/commands/get.pl b/web/htdocs/commands/get.pl
index 79aa13f7fd49f780d0000fb81e56e3c7c169dd15..523f7d2f343980aeab291415208194e38117c505 100755 (executable)
--- a/web/htdocs/commands/get.pl
+++ b/web/htdocs/commands/get.pl
@@ -29,7 +29,7 @@ $split = 1 unless $split;
 if($amount != 1) {
   if ($split <= 1) {
     my $hits = trb_register_read_mem($board,$addr,0,$amount);
-    foreach my $b (sort keys %$hits) {
+    foreach my $b (sort {$a <=> $b} keys %$hits) {
       printf ("%04x",$b);
       for(my $c =0; $c < $amount; $c++) {
         printf(" %d",$hits->{$b}->[$c]);
@@ -49,7 +49,7 @@ if($amount != 1) {
 #      print Dumper  %{$hits[$i]};
 #       print ($board." ".($addr+$i*$chunk)." ".($amount/$split)."\n");
       } while(++$i < $split);
-    foreach my $b (sort keys %{$hits[0]}) {
+    foreach my $b (sort {$a <=> $b} keys %{$hits[0]}) {
       printf ("%04x",$b);
       for(my $i = 0; $i < scalar @hits; $i++) {
         for(my $c =0; $c < $chunk; $c++) {
@@ -64,7 +64,7 @@ if($amount != 1) {
   }
 else {
   my $hits = trb_register_read($board,$addr);
-  foreach my $b (sort keys %$hits) {
+  foreach my $b (sort {$a <=> $b} keys %$hits) {
     printf ("%04x",$b);
     printf(" %d",$hits->{$b});
     print "&";