Hola otra vez,
Lo primero de todo: seguí los pasos del tutorial para hacer el
upload de un archivo ¡¡¡y me funciona perfecto!!!
Pero algo se me escapa al leer y tratar el fichero recibido mediante el
upload. Transcribo el código de la rutina a ver si alguien me puede decir qué estoy haciendo mal, por más vueltas que le doy no lo veo:
El archivo subido es un archivo .kml, con sintaxis como la de XML.
Lo leo y me quedo sólo con la línea en que aparece "
coordinates".
Son números, positivos o negativos, separados por comas.
Bien, la tabla me guarda los números, signo negativo incluido, pero cuando quiero trabajar con ellos, veo que los números negativos son 0.
En los primeros "print", veo los valores tal cual están en el archivo subido, pero en el segundo grupo de "print", los valores que son negativos me muestra 0, como si fuera una cadena de texto. (?)
¿Alguna sugerencia?
Gracias anticipadas / Saludos / apardo
Using perl Syntax Highlighting
sub Lee_Archivo
{ # leemos el archivo kml y nos quedamos solo con las coordenadas
my @Tabla = ();
my @ParteCadena;
my $fichero = $camino1 . $archivo;
open (ARCHIVO_KML
,$fichero) || die "ERROR_2: No se puede abrir el archivo". $fichero;
while (<ARCHIVO_KML>) {
if ($_ =~ /coordinates/) {
@ParteCadena = split(/,/,$_);
push(@Tabla, $ParteCadena[0
]);
push(@Tabla, $ParteCadena[1
]);
}
}
$long_sup_izda = $Tabla[0
];
$lat_sup_izda = $Tabla[1
];
$long_inf_dcha = $Tabla[2
];
$lat_inf_dcha = $Tabla[3
];
print $long_inf_dcha . " LONG_I_D \n";
print $long_sup_izda . " LONG_S_I \n";
print $lat_sup_izda . " LAT_S_I \n";
print $lat_inf_dcha . " LAT_I_D \n";
$long_sup_izda = $Tabla[0
]*-1;
$lat_sup_izda = $Tabla[1
]*-1;
$long_inf_dcha = $Tabla[2
]*-1;
$lat_inf_dcha = $Tabla[3
]*-1;
print $long_inf_dcha . " LONG_I_D ";
print $long_sup_izda . " LONG_S_I ";
print $lat_sup_izda . " LAT_S_I ";
print $lat_inf_dcha . " LAT_I_D ";Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
