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

channels LOC

Browse Source
This commit is contained in:
battilo
2018-11-18 19:48:26 +01:00
parent 7c6c3f8de0
commit c6d3ac2c26
2 changed files with 39 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@@ -0,0 +1 @@
prova.pl

41
LoadCSVData.pl
View File

@@ -463,15 +463,50 @@ while ( my $line = <FILE> ) {
#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] or ($din[0] eq '0') ) {
print getTimeStamp("log"). " - pid $$ >> 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;
} }
my ( $Vbat, $Tmod, $Ain1, $Ain2, $Din1, $Din2 ) = my ( $Vbat, $Tmod, $Ain1, $Ain2, $Din1, $Din2 ) =
split( /;/, $NodeData ); split( /;/, $NodeData );
$CSVData[0] = $Vbat . ";" . $Tmod;
$CSVData[1] = $Din1; my $idx = 0;
my ($chDin1, $chDin2) = split("", $channels[0]);
$CSVData[$idx++] = $Vbat . ";" . $Tmod;
if ($din[0] eq '1') {
if ( ($chDin1 eq '1') and ($chDin2 eq '9') ) {
$CSVData[$idx++] = $Din1;
}elsif ( ($chDin1 eq '9') and ($chDin2 eq '1') ){
$CSVData[$idx++] = $Din2;
}elsif ( ($chDin1 eq '2') and ($chDin2 eq '9') ){
$CSVData[$idx++] = $Din1 . ";" . $Ain1;
}elsif ( ($chDin1 eq '9') and ($chDin2 eq '2') ){
$CSVData[$idx++] = $Din2 . ";" . $Ain2;
}
}elsif ($din[0] eq '2') {
if ( ($chDin1 eq '1') and ($chDin2 eq '1') ) {
$CSVData[$idx++] = $Din1;
$CSVData[$idx++] = $Din2;
}elsif ( ($chDin1 eq '2') and ($chDin2 eq '1') ){
$CSVData[$idx++] = $Din1 . ";" . $Ain1;
$CSVData[$idx++] = $Din2;
}elsif ( ($chDin1 eq '1') and ($chDin2 eq '2') ){
$CSVData[$idx++] = $Din1;
$CSVData[$idx++] = $Din1 . ";" . $Ain1;
}elsif ( ($chDin1 eq '2') and ($chDin2 eq '2') ){
$CSVData[$idx++] = $Din1 . ";" . $Ain1;
$CSVData[$idx++] = $Din2 . ";" . $Ain2;
}
}
# $CSVData[1] = $Din1;
}elsif ( $tooltype eq "GD" ) { }elsif ( $tooltype eq "GD" ) {
my ( $div, $Vbat, $Tmod ) = my ( $div, $Vbat, $Tmod ) =
split( /;/, $NodeData ); split( /;/, $NodeData );