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

gestione D2W ok

Browse Source
This commit is contained in:
Alessandro Battilani
2020-11-01 19:32:10 +01:00
parent b76acb5893
commit 0f8c31bfb8
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LoadCSVData.pl
View File

@@ -562,15 +562,15 @@ while ( my $line = <FILE> ) {
#$NodeData =~ s/Dis\./N\/A/g;
@NewData = grep /\S/, split( /\||;/, $NodeData );
if ( scalar (@NewData) != 0 ) {
my $idx = 0;
my $idx = 0;
$CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) );
foreach my $ch (@channels) {
$CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, $ch ) );
$CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) );
foreach my $ch (@channels) {
$CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, $ch ) );
}
}
}
elsif ( $tooltype eq "MUSA" ) {