Foro - Perl en Español

Estimados Perleros
La consulta es la siguiente ...


¿Por qué a veces me resulta? ¿y Perl me dice que si es un fichero o un directorio o que realmente existe?

¿Por qué a veces NO me funciona sabiendo que la ruta o el archivo realmente existe?

¿Cómo debo ocupar -e / -f / -d para no tener estos problemas?

¡Agradezco su opinión!

Simplificando el 'if'...
He agregado los finales de línea '\n', para asegurarnos de que vemos en pantalla el resultado correcto en una línea separada. Puede parecer una tontería, pero hay que recordar que la salida normalmente está cacheada y Perl no vaciará el buffer de salida hasta que no tenga que pintar un final de línea o hubieses activado la variable especial $|. Es posible que a ti no te funcione en ocasiones porque el programa termine antes de que ocurra ese vaciado o que la línea sea sobreescrita por las siguientes y no seamos capaces de verla tan rápido.

Estimado explorer, agradezco tu respuesta
Pero el problema es el siguiente: en este fragmento de código es donde ocurre el problema

Importante: la variable $salida está puesta de la siguiente forma: $salida="/ruta/file";

Cuando lo pruebo en mi máquina local me funciona sin problema pero al momento de mover el script a otra máquina me sucede que salta al elsif y no corre normalmente...
¿Es ese el problema?
No entiendo por qué en mi máquina si funciona y cuando muevo el script a otra máquina no?
¿Están mal escritos los if?

De ante mano, ¡Explorer, Gracias!

Cambia la línea
por
Si aún así el programa no encuentra el fichero, es que ese fichero no está en el sistema.

¿elsif existe?, no sabía que es igual a else...

¡Solución al problema!

El problema era que de algún modo la variable $var contenía ¡¡espacios blancos!!
y por eso al hacer un -e /- f / -d encontraba que ¡¡no era un fichero o path válido!!
Bueno, con la función trim() que borra esos espacios ¡se solucionó!


¡Gracias Explorer, por tu ayuda!

Hola:

Te dejo nada más un comentario acerca de las expresiones regulares que estás usando, por ejemplo:



Realmente estaría más correcto de la siguiente manera:



¿Por qué? Debido a que el \s* le dice a la máquina de regexp que coincida con cualquier espacio que esté 0 o más veces, y pues si no hay espacios ¿cuál es el sentido de la sustitución?

Sin embargo con el \s+ solamente coincide cuando hay uno o más espacios, que es justamente lo que queremos. Lo mismo es cierto con la expresión usada para quitar espacios al final.

Luego tenemos la siguiente expresión:



Es bastante redundante y la podríamos hacer de la siguiente manera:



Con el modificador g obligamos a la máquina de regexp a hacer la mayor cantidad de coincidencias posibles, por lo tanto, buscará todos los espacios y los eliminará.

Estos son solamente algunos tips para optimizar lo más posible el código.

Saludos

Gracias kidd
Lo voy a cambiar ¡y chequeo el resultado!

Kiloko escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

elsif(!-e $var){

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿elsif existe?, no sabía que es igual a else...

Pues claro que existe elsif.

Y no es equivalente a else, sino a un "else if", es decir:es equivalente a.

Si le he pedido que cambiara el elsif por el else es porque no es necesario en su código: en el primer if está preguntando si existe el fichero $var. En caso de ser así, se ejecuta la primera parte del if. Si no existe, Perl se va a buscar el primer else, y allí se encuentra el elsif, que es lo mismo que un else if. Allí hace otra pregunta: "¿el fichero $var no existe?". Bueno, pues es obvio que esa pregunta sobra porque si Perl llega allí es porque ha fallado el primer if y por lo tanto el fichero $var no existe. Por eso sobra.

Ok. Nada mas, para recapitular, ¿elsif primero pregunta si else y después if si, para la condición?

¿Algo así como si si existe o no, si existe pasa, si no pasa un if?