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

tolto dump @din

Browse Source
This commit is contained in:
battilo
2017-09-04 21:36:47 +02:00
parent 134fc78aef
commit bc9ca701e3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LoadCSVData.pl
View File

@@ -259,10 +259,10 @@ while (my $line = <FILE>) {
$CSVData[$idx++] = join( ';', splice(@NewData, 0, $ch)); $CSVData[$idx++] = join( ';', splice(@NewData, 0, $ch));
} }
#print Dumper \@NewData; #print Dumper \@NewData;
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 $$ >> Found Din not defined.\n"; print getTimeStamp("log") . " - pid $$ >> Din not defined.\n";
print getTimeStamp("log") . " - pid $$ >> Execution ended.\n"; print getTimeStamp("log") . " - pid $$ >> Execution ended.\n";
exit; exit;
}; };