From 21f1a47dbd45272be8ceb0dcca4f19f4512bb7c8 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 4 Feb 2018 10:40:14 +0100
Subject: [PATCH] added utility function "save"
---
modules/util/Util/XML/File.pm | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/modules/util/Util/XML/File.pm b/modules/util/Util/XML/File.pm
index 2fbe67f..5072094 100644
--- a/modules/util/Util/XML/File.pm
+++ b/modules/util/Util/XML/File.pm
@@ -80,6 +80,23 @@ print __LINE__, " xmlref: ", main::Dumper ($xmlref) if ($DEBUG > 0);
return ($xmlref, $xml);
}
+sub save
+{
+ my $fnm= shift;
+ my $xml= shift;
+
+ unless (open (XML, '>:utf8', $fnm))
+ {
+ print "ATTN: can't write to fnm=[$fnm]";
+ return undef;
+ }
+
+ print "saving xml to $fnm\n";
+ print XML $xml;
+ close (XML);
+
+ 1;
+}
1;
--
GitLab