Foro - Perl en Español

Buenas, tenga esta línea de código en Perl.

y no se por qué me falla.

Lo que quiero conseguir es el número de día solamente.

La idea de utilizar esto, es porque con un date normal, por ejemplo el día 7 lo toma como 07 y yo solo quiero el 7.

gracias

system() devuelve el resultado de la ejecución, NO la salida de la ejecución. Para esto, debes usar qx();

Otra cosa... para saber la fecha del día, no necesitas programas externos a Perl, sino el propio Perl:

efectivamente,
mucho mas simple y funciona

gracias

este valor que devuelve es un entero

hay alguna forma de pasarlo a caracter.
He probado a meterlo en un split, y luego a sacar el valor, pero me falla

¿Puedes poner el código y la salida?

javierg escribiste:este valor que devuelve es un entero

hay alguna forma de pasarlo a caracter.
He probado a meterlo en un split, y luego a sacar el valor, pero me falla

Eso me sonó a "circo, maroma y teatro".....

El contexto de un escalar (aquí menciono contexto como el tipo de dato interno o su representación interna), es reflejado en cómo lo usas:

$a = 5; # Numérico
"$a" # obviamente convierte eso a cadena
"$a" + 5 # valor numérico por tratarse de una operación aritmética

Y lo mismo pasará cuando compares un valor escalar en forma de cadena y en forma numérica.

Si quieres represenaciones específicas lee sobre la función sprintf.

Saludos,

PD. Es necesario leer un poco más sobre aspectos básicos de los tipos de datos en Perl.

señores porfavor ....



$dia es un entero, intento pasarlo por un split para sacarlo como carácter,
pero ese valor que me devuelve sigue siendo un entero.

Adjunto el código.


Cuando quito el ultimo if, funciona OK. Pero cuando lo pongo me sale el siguiente error

Código: Seleccionar todo

Use of uninitialized value in string at pruebabackup.pl line 77, <DIRCOMP>

Lo de sumar un número a un escalar, o poner comillas a una variable numérica, ya lo probé hace tiempo. Aunque ahora dudo de que en esto venga el problema.

El problema está aquí:
¿Qué narices es eso?

Estás comparando un array con un literal, por lo que Perl pasa el array @dia a formato escalar, es decir, nos devuelve la longitud de la lista almacenada en @dia, como un entero.

Pero a continuación, haces una comparación de cadena ('eq') por lo que convierte el entero devuelto antes por el array a un string, y lo compara con fecha, que al ser un literal, lo convierte al string 'fecha' (por lo que, sospecho, debería ser corregido a $fecha, definida una línea antes).

A ver... tu lo que quieres es saber si la $fecha es el día de hoy... entonces, nos podemos olvidar de @dia. Necesitaríamos saber el formato del dato de día que extraemos desde la $linea, pero supongamos que es el mismo que el que nos devuelve localtime (valores de 1 a 31, sin relleno de cero o espacios).

Entonces... el 'if' quedaría así:
Si el formato de la $fecha es distinto, quizás habrá que hacer la comparación de otra manera...

Pero recuerda... Perl NO tiene variables escalares DISTINTAS para números y para strings. Y un array NO almacena strings, sino listas de escalares (que, ocasionalmente, pueden ser strings o caracteres).