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

tolta staampa array

Browse Source
This commit is contained in:
battilo
2018-11-10 18:51:02 +01:00
parent 7c6c3f8de0
commit 9587e037be
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
LoadCSVData.pl
View File

@@ -449,7 +449,7 @@ while ( my $line = <FILE> ) {
#$NodeData =~ s/\r\n\z//; #$NodeData =~ s/\r\n\z//;
if ( $tooltype eq "MUX" or $tooltype eq "MUSE" ) { if ( $tooltype eq "MUX" or $tooltype eq "MUSA" ) {
#$NodeData =~ s/Dis\./N\/A/g; #$NodeData =~ s/Dis\./N\/A/g;
@NewData = grep /\S/, split( /\||;/, $NodeData ); @NewData = grep /\S/, split( /\||;/, $NodeData );
@@ -460,8 +460,9 @@ while ( my $line = <FILE> ) {
join( ';', splice( @NewData, 0, $ch ) ); join( ';', splice( @NewData, 0, $ch ) );
} }
#print Dumper \@NewData; #print Dumper \@CSVData;
#print Dumper \@din; #print Dumper \@din;
}elsif ( $tooltype eq "LOC" ) { }elsif ( $tooltype eq "LOC" ) {
if ( !defined $din[0] ) { if ( !defined $din[0] ) {
print getTimeStamp("log"). " - pid $$ >> Din not defined.\n"; print getTimeStamp("log"). " - pid $$ >> Din not defined.\n";