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

aggiunto N/A

Browse Source
This commit is contained in:
battilo
2018-11-19 23:25:19 +01:00
parent f0ab80f719
commit 7a018175e1
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LoadCSVData.pl
View File

@@ -500,9 +500,11 @@ while ( my $line = <FILE> ) {
$CSVData[$idx++] = $Din1 . ";" . $Din2; $CSVData[$idx++] = $Din1 . ";" . $Din2;
} elsif ($ain[i] eq 2) { } elsif ($ain[i] eq 2) {
$CSVData[$idx++] = $Ain1 . ";" . $Ain2; $CSVData[$idx++] = $Ain1 . ";" . $Ain2;
} else {
$CSVData[$idx++] = "N/A";
} }
} }
}elsif ( $tooltype eq "GD" ) { }elsif ( $tooltype eq "GD" ) {
my ( $div, $Vbat, $Tmod ) = my ( $div, $Vbat, $Tmod ) =
split( /;/, $NodeData ); split( /;/, $NodeData );