Changeset 10099 in ntrip for trunk/BNC/scripts

Timestamp:

Jun 17, 2023, 10:56:07 PM (18 months ago)

Author:

wiese

Message:

change: toLineProtocol: sort fields

File:

• trunk/BNC/scripts/Common.pm (modified) (5 diffs)

trunk/BNC/scripts/Common.pm

@@ -54 +54 @@
     eval { mkpath($dir) };
     if ($@) {
-        warn("Could not create path [$dir]: $@");
+        warn ("Could not create path [$dir]: $@");
         return 0;
     }
@@ -129 +129 @@
                 # could not replace -> append
                 blurt( "$newPos\n", $idxFil, { append => 1 } );
-#                my $INP;
-#                if ( !open ( $INP, ">>", $idxFil ) ) {
-#                    ERROR("Could not append file [$idxFil]: $!");
-#                    return 0;
-#                }
-#                print $INP "$newPos\n";
-#                close ($INP);
+
+                #                my $INP;
+                #                if ( !open ( $INP, ">>", $idxFil ) ) {
+                #                    ERROR("Could not append file [$idxFil]: $!");
+                #                    return 0;
+                #                }
+                #                print $INP "$newPos\n";
+                #                close ($INP);
             }
         }
@@ -141 +142 @@
             # initial write
             blurt( "$newPos\n", $idxFil );
+
             #writeTextInFile( $idxFil, "$newPos\n" );
         }
@@ -230 +232 @@
         if ( !exists $rcd->{'tags'}->{$_} ) {
             $err++;
+
             #next; # ?
         }
@@ -238 +241 @@
 
     # Fields
-    while ( my ( $k, $v ) = each %{ $rcd->{'fields'} } ) {
-        if ( !defined $v ) {
+    foreach ( sort { lc ($a) cmp lc ($b) } keys %{ $rcd->{'fields'} } ) {
+        if ( !exists $rcd->{'fields'}->{$_} ) {
             $err++;
-        }
-        $str .= $k . "=" . $v . ",";
+
+            #next; # ?
+        }
+        $str .= $_ . "=" . $rcd->{'fields'}->{$_} . ",";
     }
     chop $str;