From f8b51c39ac4f0fbf0187195684a5915a27c957bd Mon Sep 17 00:00:00 2001 From: Alessandro Battilani Date: Thu, 23 Dec 2021 10:27:45 +0100 Subject: [PATCH] fix x00 check --- LoadCSVData.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/LoadCSVData.pl b/LoadCSVData.pl index 6df0770..3d1f12f 100755 --- a/LoadCSVData.pl +++ b/LoadCSVData.pl @@ -453,7 +453,7 @@ elsif ( $filecsvname =~ m/^(\d*_|)(G301_ID\d\d\d\d_DT\d\d\d\d_\d*)$/i ) { while ( my $line = ) { #if ( $line =~ m/\A [[:ascii:]]* \Z/xms ) { - if ( $line !~ /\x00/g ) { + if ( $line !~ /\x00/ ) { $line =~ tr /\,/\;/ if ( $line =~ m/^\"\d\d\d\d.*/i ); #CR1000X $line =~ s/\"//g; my ( $first, $NodeData ) = split( /;/, $line, 2 );