Foro - Perl en Español

Buenos días. Saludos a toda la comunidad.

Estoy recien desarrollando mi primer programa en Perl, el cual es un pequeño robot que se ejecutará a través de un cronjob.

Este robot debe hacer lo siguiente:

1. Abrir un archivo txt llamado bandera
2. Leer el valor de la primera posición de texto que está dentro del archivo
3. Si el valor es 1 entonces se debe cambiar en el archivo el valor a 0, cerrar el archivo y se deben ejecutar una serie de sentencias.

De esta manera si el cronjob se dispara de nuevo y el valor de la bandera es 0, entonces el programa finalizará y no sucederá nada.

Por ahora ya tengo resuelto la parte 1 y 2 pero me falta la 3. ¿Podría alguien ayudarme con esto, por favor?

Desde ya, mil gracias...

Mi código es:
De nuevo, un millón de gracias por la ayuda.

Bienvenido a los foros de Perl en Español, ajdm1973.

En vez de read(), yo usaría readline() o el operador diamante (<BANDERA>). Así, no estamos leyendo bytes, sino líneas enteras de texto.

La comparación, dentro del if(), no está correctamente escrita. Usas el operador de comparación numérica '==', pero el segundo argumento lo pones entre comillas dobles. Yo quitaría las comillas.

Para cambiar el valor de la bandera a 0, te vale con hacer un reposicionamiento del puntero del archivo abierto por BANDERA, con un seek(), a la primera posición del archivo (posición 0), y luego le haces un print con un valor 0, a BANDERA.

Saludos, explorer.

Muchísimas gracias por la información.

Sería algo mas o menos así?



Ahora bien el problema que estoy teniendo es que está entrando siempre en la condicion, de valor == 0, es decir, que a pesar de que el archivo se escribe y coloca la bandera en 1.

Que me puedes decir al respecto?

Gracias mil, de nuevo.

Continuando con el avance del script te comento que ya hace la validación de la bandera, es decir, que ya hace la lectura del archivo, validación y escritura; ahora viene la parte donde se deben ejecutar las sentencias pues el valor está en cero (0).

Para ello yo tengo un sh que hace esto:

¿Cómo hago para llevar ese código a Perl e incluirlo aquí...?



De nuevo, muchísimas gracias...

Supongo que podrás llamarlo con system() o con qx().

Más información en perldoc -f system

Gracias mil por tu comentario, explorer,

Más que llamarlo lo que quiero es incluir ese código en mi programa Perl.

¿Podrías ayudarme con eso?

Gracias mil, de nuevo.

Bueno, pues se trata de traducir las instrucciones que están escritas en shell, a Perl.

La hora la puedes sacar con localtime(), y pasada a un sprintf para que quede formateada.

La construcción de urls no la tengo clara (no sé mucho de shell, la verdad). Creo que no es más que concatenar cadenas de caracteres. En ese caso, en Perl se usa el operador concatenación (.).

Luego llamas a php.cgi, así que ahí sí que necesitas el system(). Y comprobar que el resultado es positivo. Ahí hay que recordar que de system() tenemos que quedarnos con solo uno de los dos bytes que nos devuelve.

Y, finalmente, los echo se sustituyen por print o say.

explorer escribiste:Supongo que podrás llamarlo con system() o con qx().

Más información en perldoc -f system

La idea es convertir ese código de shell en Perl e insertarlo en mi script de Perl.

Fíjate como lo estoy haciendo.
1.- Declaro la variable urlp la cual contiene la ruta del script que quiero ejecutar
$urlp="/home/user/www/folder/script.php dept=";
2.- Luego en una arreglo tipo lista, concateno la variable urlp con la lista
$urls=($urlp{10,13,19,20,23,24,26,27,29,32,34,37,52,53,83,87,92,93});

¿Esto está bien así para Perl?

¿O lo debo hacer de otra manera?

Tu te preguntarás, porque lo hace así, lo hago de esta manera pues después de ello ejecuto el siguiente if:

if /usr/bin/php-cgi "${urls[@]}"
{
print "EXITOSO";
}
else{
print "FALLIDO";
}

Donde ${urls[@]} tendrá los valores de urlp concatenados con urls; es decir, que en un momento dato el php-cgi ejecutará /home/user/www/folder/script.php dept=10

¿Podrías orientarme con esto?

De nuevo, mil gracias...

He ejecuta en shell las primeras líneas de ese programa, y me sale esto:

O sea, que $urls, al final, solo contiene el primer valor.

¿Tanto jaleo para poner un solo valor?

En Perl sería:

$urls = '/www/midominio/folder/myscript.php?id=' . '10';

explorer escribiste:He ejecuta en shell las primeras líneas de ese programa, y me sale esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using bash Syntax Highlighting

1. > urlp='/www/midominio/folder/myscript.php?id='
2. > urls=( "$urlp"{10,13,19,20,23,24,26,27,29,32,34,37,52,53,83} )
3. > echo $urls
4. /www/midominio/folder/myscript.php?id=10
5.  

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

O sea, que $urls, al final, solo contiene el primer valor.

¿Tanto jaleo para poner un solo valor?

En Perl sería:

$urls = '/www/midominio/folder/myscript.php?id=' . '10';

Te recuerdo que es mi primer programa en Perl. A ver, te explico que es lo que necesito hacer y entonces tu me dices cómo lo debo hacer.

Esto sería la ejecución de las sentencias:


¿Cual es el problema que yo veo en esto? Es que cada vez que agrego un nuevo id tengo que agregar una línea al programa; entonces que es lo hace mi shell que funciona es que el ejecutar el script cambiando el id esto lo hace a través de las dos sentencias anteriores.


¿Cómo lo harías tu o qué me recomiendas hacer?

Desde ya, gracias y mil disculpas por las molestias.