From 599ff449f26d5762ec23111ae268761ace2fd340 Mon Sep 17 00:00:00 2001
From: Karl-Hermann Wieners <karl-hermann.wieners@mpimet.mpg.de>
Date: Fri, 26 Apr 2024 10:43:23 +0200
Subject: [PATCH] Tools: import allows fractions in output timestamps
---
files2config | 2 +-
namelist2config | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/files2config b/files2config
index 792c02f..1903ba6 100755
--- a/files2config
+++ b/files2config
@@ -28,7 +28,7 @@ exists $opts{x} and $xlog = '\+';
my %file_info = ();
while(<>) {
- s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d: //; # Remove log time stamps
+ s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d(?:[,.]\d+)?: //; # Remove log time stamps
if(my ($mtd, undef, $src, $dst) =
m{^$xlog\s*((cdo|cp|ln)\s.*)\s+(\S+)\s+(\S+)\s*$}) {
#DEBUG# warn($_, join(':', $mtd, $src, $dst), "\n"); #DEBUG#
diff --git a/namelist2config b/namelist2config
index 25c11ae..32a6131 100755
--- a/namelist2config
+++ b/namelist2config
@@ -113,7 +113,7 @@ my $namelist_group = {};
my $namelist_variable = [];
while(<>) {
- s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d: //; # Remove log time stamps
+ s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d(?:[,.]\d+)?: //; # Remove log time stamps
if($in_doc && m/^EOF/) {
if($open_value) {
$direct and print("\n");
--
GitLab