check se riga contiene caratteri x00

LoadCSVData.pl

@@ -451,7 +451,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 );
@@ -548,9 +550,6 @@ while ( my $line = <FILE> ) {
                 elsif ( $tooltype eq "CR1000X" )
                 {    # può essere tolto per attivarlo
                     @CSVData = split( /\|/, $NodeData );
-                    print getTimeStamp("log")
-                      . " - pid $$ >> TEST CR1000X Execution ended.\n";
-                    exit;
                 }
 
                 elsif ( $tooltype eq "MUSA" ) {