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

corretto variabili indici

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

8
LoadCSVData.pl
View File

@@ -482,23 +482,23 @@ while ( my $line = <FILE> ) {
my $used_din = 0;
my $used_ain = 0;
for my $i (0 .. $#din){
if ($din[i] eq 1) {
if ($din[$i] eq 1) {
if ($used_din eq 0) {
$CSVData[$idx++] = $Din1;
$used_din = 1;
} else {
$CSVData[$idx++] = $Din2;
}
} elsif ($ain[i] eq 1) {
} elsif ($ain[$i] eq 1) {
if ($used_ain eq 0) {
$CSVData[$idx++] = $Ain1;
$used_ain = 1;
} else {
$CSVData[$idx++] = $Ain2;
}
} elsif ($din[i] eq 2) {
} elsif ($din[$i] eq 2) {
$CSVData[$idx++] = $Din1 . ";" . $Din2;
} elsif ($ain[i] eq 2) {
} elsif ($ain[$i] eq 2) {
$CSVData[$idx++] = $Ain1 . ";" . $Ain2;
} else {
$CSVData[$idx++] = "N/A";