Foro - Perl en Español

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.

Hola, tengo un código en Perl para generar la contraseña encriptada en nt y lm, los datos los cojo de un formulario donde se introduce el usuario y contraseña. El caso es que si recogo la contraseña con la salida del printf me muestra luego en el php la contraseña encriptada y lo que quiero es recogerla pero sin mostrarla por pantalla:

$passwd = system ("/usr/bin/perl /var/www/conSSL/web/includes/crypt.pl {$_SESSION} $pass", $retval);

#!/usr/bin/perl

use Crypt::SmbHash;
$username = ...

¡Hola a todos!

En el siguiente código, guardo en dos arrays (@xmlreports y @txtreports) la lista de ficheros .xml y .txt respectivamente que se encuentran en el directorio de trabajo.


opendir(DIR, $workingDir) || die "$0: ERROR: can't opendir $workingDir: $!";
my @xmlreports = grep { /\.xml$/ && -f "$workingDir/$_" } readdir(DIR);
closedir DIR;
opendir(DIR, $workingDir) || die "$0: ERROR: can't opendir $workingDir: $!";
my @txtreports = grep { /\.txt$/ && -f "$workingDir/$_" } readdir(DIR);
closedir ...

Bien ya con la data que me dieron pude leer los archivos que tiene el contenido que necesito reemplazar, ponerlos en un array y listar los archivos sin repetir, lo que tengo es algo así:

#!/usr/bin/perl
#Mando en un array el listado de los archivos que tienen la cadena que busco
#desde la shell de linux le paso la variable $1
my @array=`grep -Re "esto-es-lo-que-busco" $1`;
#Pongo solo los resultados unicos en un nuevo array ...

Hola a todos,

Tengo una duda bastante básica así que supongo que me podréis ayudar:

Tengo un fichero de configuración (FTP.cfg) en el que guardo datos que luego serán usados por un script perl para realizar una conexión FTP para el envío de una serie de ficheros:

Ejemplo de un "cat FTP.cfg":

Code: Seleccionar todo

user = pepito
password = frijolito
host = Gavilan
path = /pepito/juanito/


El hecho es que tengo un script perl que parsea ...

Necesito buscar dentro de un array una cadena y extraer los valores únicos de ese array, es decir tengo una array así:
@pepe = ('hola','chau','lindo','feo','hola','feo','hola','lindo','dia','dia')

Necesito extraer sólo los valores únicos. ¿Cómo podría hacerlo?

Hola aquí estoy con un nuevo desafío, a ver si me podéis echar una manilla.

Necesito hacer un programa que lea unos datos de una base de datos y envíe un mensaje a un teléfono móvil. En concreto, debe estar en un bucle siempre buscando en la tabla 'SOS' si hay algún registro con el campo 'procesado = 0', si es así, saco los campos 'uid', 'fecha' y 'hora' y tengo que mandar un mensaje ...