Help for this page

Select Code to Download

Select or download this

while (<FICHEROCFG>) {
    $datos_cfg = $_;
...
        push @{ $db{$var1}{'Operativa'} }, $var4;
        }
}

Select or download this


(line 1)->open (FICHEROCFG, "<$fichero_cfg") or die "No se puede abrir
+ el fichero de configuracion de transacciones $fichero_cfg!!\n";
...
    $db{$var1}[$indice]{'Transaccion'} = $var4;

}