alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check se riga contiene caratteri x00

Browse Source
This commit is contained in:
Alessandro Battilani
2021-12-22 16:17:56 +01:00
parent c9d5d8b2fc
commit d6650839bc
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LoadCSVData.pl
View File

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