Foro - Perl en Español

Hola a todos,

El caso es que estoy intentando implementar un script que se meta en un bucle y que no salga hasta que una serie de scripts no hayan terminado su ejecución. De momento, he implementado lo siguiente (que por cierto, no funciona para nada):


#en $file_name tengo el path y el nombre del fichero a crear

open (F,">$flagFile") || die "ERROR: can't open $flagFile";
print STDOUT "Suspend all jobs: Flag File Created\n";

while ...

Agradecería si me pudiesen indicar cómo trabajar con Transacciones.

Es decir dados un conjunto de acciones a realizar sobre distintas tablas, cómo implemento en Perl sentencias tipo rollback y commit.

Muchas gracias. :D

Hola a todos,

¿Alguien sabría decirme cómo obtener la hora, minuto y segundos de un fichero en Unix? ¿Hay algún parámetro de ls que lo haga?

Gracias a todos.

Hola a todos. Me encuentro realizando un sistema de información en Perl/Tk y MySql, mi pregunta existe algún código que me ayude a realizar un backup y restore desde Perl/Tk..

Mi base de datos se llama bd_sid, se lo agradezco a quien me pueda ayudar ...
Gracias.... :roll: :roll:

http://www.cs.cf.ac.uk/Dave/PERL/node180.html

Estoy haciendo un cliente SMTP, similar al del link puesto pero no usa recv sino un chomp directo al filehandle creado por Socket.

El problema está al tomar la salida del servidor, es decir, cuando el servidor imprime los mensajes el programa se queda esperando y no sé por qué ya que no da ningún error y si hago lo mismo pero por telnet no hay problema.

¿Qué ...

Hola a todos...

Resulta que tengo un script que se conecta a un BD en Postgres y lee registros que inserta en otra y despues los elimina de la primera (estamos hablando de unos cuantos registros, alrededor de 500.000).

El problema es que cuando ejecuto el script directamente (./script.pl) se me queda por la mitad añadiendo los artículos (siempre en un lugar diferente), sin embargo cuando debugeo el script (perl -d script.pl) corre sin problemas ...

Hola a todos,

Ya vuelvo a estar aqui para daros la tabarra como siempre.

En este caso tengo que desarrollar un script que haga lo siguiente:


1. Crear fichero "flag file" que servira para informar a ciertas aplicaciones que no deben ejecutarse. Dichas aplicaciones lo primero que hacen es comprobar la existencia de dicho fichero.

2 Mientras (hay proceso/s correspondiente/s a dichas aplicaciones en ejecucion)
{
}

3. Quit


El caso es que tengo algunas ...

Hola,

En un servidor están alojadas varias máquinas virtuales. Todas las madrugadas se ejecuta una tarea bastante pesada, en todas ellas a la misma hora, por lo que dejan al servidor medio frito:

# grep "statistics" /vz/root/*/var/spool/cron/root
/vz/root/1001/var/spool/cron/root:7 4 * * * /usr/local/psa/admin/sbin/statistics >/dev/null 2>&1
/vz/root/1002/var/spool/cron/root:7 4 * * * /usr/local/psa/admin/sbin/statistics >/dev/null 2>&1
/vz/root/1003/var/spool/cron/root:7 4 * * * /usr/local/psa/admin/sbin/statistics >/dev/null 2>&1
/vz/root/1004/var/spool/cron/root:7 4 * * * /usr/local/psa/admin/sbin/statistics >/dev/null 2>&1
/vz/root/1006/var/spool/cron/root:7 4 * * * /usr/local/psa/admin/sbin/statistics ...

Saludos:

Estoy haciendo una aplicación y necesito obtener datos alojados en una base de datos que se encuentra en una máquina con Windows, tiene MSSQL Server. Ojalá alguno de ustedes sepa cómo hacerlo y pueda ayudarme. Gracias.

Hola, estoy haciendo un programa en el que desde un servlet llamo al Perl para que me haga una búsqueda y luego la redireccione a otro servlet.
Ahora viene mi duda, ¿cómo puedo saber, en el código Perl, la dirección IP del servlet que me ha llamado?

Si alguien me puede ayudar le estaría muy agradecido.

Gracias y un saludo.