From 0c5b999d6983fe55d8a93f6df1e5fa65a2d510ad Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Wed, 22 Dec 2021 16:20:03 +0100
Subject: [PATCH] check riga contiene x00

---
 LoadCSVData.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index a540db2..339ae71 100755
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -455,7 +455,9 @@ elsif ( $filecsvname =~ m/^(\d*_|)(G301_ID\d\d\d\d_DT\d\d\d\d_\d*)$/i ) {
 }
 
 while ( my $line = <FILE> ) {
-    if ( $line =~ m/\A [[:ascii:]]* \Z/xms ) {
+
+    #if ( $line =~ m/\A [[:ascii:]]* \Z/xms ) {
+    if ( $line !~ /\x00/g ) {
         $line =~ tr /\,/\;/ if ( $line =~ m/^\"\d\d\d\d.*/i );    #CR1000X
         $line =~ s/\"//g;
         my ( $first, $NodeData ) = split( /;/, $line, 2 );