Foro - Perl en Español

Hola, estoy intentando hacer un programa muy sencillo que me pregunte vocabulario en inglés, y lo he concebido, como era de esperar, como un hash, donde las claves son las palabras en español y los valores las palabras en inglés. Este que presento a continuación es el programa chorra que he hecho con un hash dentro del mismo programa.


%hash = (hola, hello, naranja, orange, tu, you, manzana, apple, cosa, thing); #creación del hash

foreach ...

Hola, estoy queriendo parsear algunos datos de mis logs, por ejemplo uno de los logs que quiero mostrar ordenado es el maillog. esto es lo que tengo:

#!/usr/bin/perl -w
$LOGFILE = "/var/log/maillog";
open(LOGFILE) or die("El fichero no pudo ser abierto");
print "\n Fecha: | Nombre: | Hora: \n";
print "------------------------------\n";
foreach $line (<LOGFILE>) {
($mes, $dia, $hora, $nombre, $comando, $msj) = split(' ',$line);
print "$dia $mes | $nombre | $hora | $comando ! $msj \n ...

Leo de un archivo una linea por ejemplo
juan perez,0,3,pedro,

y necesito separar los elementos

juan perez
0
3
pedro


**nota: separo los elementos por comas

Por su atención, "¡gracias!" :?:

Hola buen día. Soy novato en Perl y en este foro. Necesito desarrollar una aplicación que en un día determinado del mes genere unos reportes en Excel y estos se envíen automáticamente en esa fecha determinada por correo a algunas personas. Agradezco cualquier información sobre este tema que me puedan aportar. Y bueno me comentaron que con Perl era sencillo, quisiera también saber si es así.

Gracias...

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 ...

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,

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 ...

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 ...