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

allineato a cloud script

Browse Source
This commit is contained in:
Alessandro Battilani
2021-12-19 16:49:20 +01:00
parent 73295f8ac5
commit f0bf337cfb
1 changed files with 0 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
LoadCSVData.pl
View File

@@ -519,7 +519,6 @@ while ( my $line = <FILE> ) {
getNodesType(); getNodesType();
$CR1000X_fcheck = 1; $CR1000X_fcheck = 1;
} }
if ( $unittype eq 'G301' and $G301_fcheck eq 0 ) { if ( $unittype eq 'G301' and $G301_fcheck eq 0 ) {
print getTimeStamp("log") print getTimeStamp("log")
. " - pid $$ >> Found $tooltype tool name: $tool\n"; . " - pid $$ >> Found $tooltype tool name: $tool\n";
@@ -542,16 +541,9 @@ while ( my $line = <FILE> ) {
foreach my $ch (@channels) { foreach my $ch (@channels) {
$CSVData[ $idx++ ] = $CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, $ch ) ); join( ';', splice( @NewData, 0, $ch ) );
} }
} }
#print Dumper \@CSVData;
#print Dumper \@channels;
#print Dumper \@din;
} }
elsif ( $tooltype eq "CR1000X" ) elsif ( $tooltype eq "CR1000X" )
{ # può essere tolto per attivarlo { # può essere tolto per attivarlo
@CSVData = split( /\|/, $NodeData ); @CSVData = split( /\|/, $NodeData );