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

skip channel =0 x g301

Browse Source
This commit is contained in:
Alessandro Battilani
2021-11-27 22:38:24 +01:00
parent 21bb06f565
commit a5292ae9cb
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LoadCSVData.pl
View File

@@ -522,10 +522,17 @@ while ( my $line = <FILE> ) {
$CSVData[ $idx++ ] = $CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, 2 ) ); join( ';', splice( @NewData, 0, 2 ) );
foreach my $ch (@channels) { foreach my $ch (@channels) {
$CSVData[ $idx++ ] = if ( $ch > 0 ) {
join( ';', splice( @NewData, 0, $ch ) ); $CSVData[ $idx++ ] =
join( ';', splice( @NewData, 0, $ch ) );
}
} }
} }
#print Dumper \@CSVData;
#print Dumper \@channels;
#print Dumper \@din;
} }
elsif ( $tooltype eq "MUSA" ) { elsif ( $tooltype eq "MUSA" ) {