Changeset 10512 in ntrip for trunk/BNC

Timestamp:

Jun 21, 2024, 10:19:12 AM (6 months ago)

Author:

wiese

Message:

add: blurt function

File:

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

trunk/BNC/scripts/Common.pm

@@ -15 +15 @@
 use File::Basename;
 use File::Spec::Functions;
+use Proc::ProcessTable;
 
 #$| = 1; # Buffer off (print)
@@ -102 +103 @@
 }
 
+# blurt opens a new file, prints the data in $data to it and closes the file.
+# If $options->{append} is set to a true value, data will be appended to the file. Default is false, existing files will be overwritten.
+#
+# If the string is a Unicode string, use the utf8 option: 'blurt( $unicode_string, $file, {utf8 => 1} );'
+sub blurt {
+    my ( $data, $file, $options ) = @_;
+
+    # legacy signature
+    if ( defined $options and ref $options eq "" ) {
+        $options = { append => 1 };
+    }
+
+    $options = {} unless defined $options;
+
+    local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
+
+    $options->{append} = 0 unless defined $options->{append};
+
+   #_confirm( ( $options->{append} ? "Appending" : "Writing" ) . " " . length ($data) . " bytes to $file" ) or return 1;
+
+    open my $fh, ">" . ( $options->{append} ? ">" : "" ) . $file
+      or LOGCROAK("Cannot open $file for writing ($!)");
+
+    binmode $fh;    # Win32 wants that
+
+    if ( $options->{utf8} ) {
+        binmode $fh, ":utf8";
+    }
+
+    print $fh $data
+      or LOGCROAK("Cannot write to $file ($!)");
+    close $fh
+      or LOGCROAK("Cannot close $file ($!)");
+}
+
 #** @function filePosition ($file, $filePos)
 # @brief Save position of a file in an idxfile.