Foro - Perl en Español

Hola, me gustaría saber cómo enviar un archivo a varias personas por e-mail desde Perl. Estado mirando algunos temas que se han publicado pero aparte de que no tengo muy claro cómo hacerlo me gustaría saber cuál es el mejor módulo hasta el momento para realizarlo. ¿El módulo MIME::Entity sería la mejor opción?

Tengo el siguiente código:

open (PALABRAS, 'palabras.txt');
my @palabras = <PALABRAS>;
chomp @palabras;
close(PALABRAS);

for ( $i = 0; $i < @palabras; $i++ ) {

print $palabras,"\n";

sleep(20);

}

palabras.txt:

aaa
bbb
ccc
ddd
eee
fff
ggg
hhh
iii
jjj
kkk
lll
mmm
nnn
ooo
ppp
qqq
rrr

¿Cómo podría pausar y después reanudar el programa (pulsando una tecla o una combinación de teclas) en el mismo punto donde hice la pausa?

Hola a todos:

Recién hice un módulo para paginación de algunos reportes que son muy grandes (arriba de 20-30 páginas) y me funciona bien, pero lo que no es nada práctico es que al cliquear el botón Atrás en cualquier browser, me va llevando por todas las páginas que he visitado.

¿Cómo puedo evitar esto?

Cualquier tip es bienvenido.

Saludos a todos,
el problema es este: tengo en un script el siguiente código para consumir un servicio de autentificación con LDAP hecho en PHP:

use SOAP::Lite +trace => ;
my $client = SOAP::Lite->service($url) || die "error";
my $resultado = $client->autenticarUsuario($user,$pass,$dominio);

al poner el debug tengo esta salida:

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:typens="urn:PasarelaAutenticacionWS" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><typens:autenticarUsuario><pUsuario xsi:type="xsd:string">user</pUsuario><pContrasenna xsi:type="xsd:string">pass</pContrasenna><pDominio xsi:type="xsd:string">dominio</pDominio></typens:autenticarUsuario></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Fri, 08 Jul 2011 17:07:06 GMT ...

¡Hola! Estoy tratando de crear una estructura así:

$VAR1 = ;

Pregunté y me dijeron que es un array de 3 posiciones, donde en cada ...

¡Hola!

Estoy intentando hacer unos unit test con Perl y quisiera usar mock objects.

¿Me podrían explicar cómo se usan? Porque busqué y no encontré nada.

¡Desde ya, muchas gracias!

¡Saludos!

Hola, tengo un problema: tengo un listado a tratar con esta pinta, guardado en la variable $users:

Administrador admintivoli Asistente de ayuda
ASPNET Guest SUPPORT_388945a0
tecnico tmersrvd USMCAFEE

Con el siguiente código, voy metiendo en $campo cada una de las columnas, pero en el caso de "Asistente de ayuda" como tiene espacios, no funciona.

my @lista = split(/\s+/, $usrs);
foreach my $campo(@lista){
print "$campo\n";
}

¿Cómo podría hacer para meter en $campo "Asistente ...

Hola amigo,

Me gustaría hacer un .pl el cual me genere un reporte con la información del status (CVS) de todos los archivos de un directorio en adelante.

No me imagino cómo es la forma para saber el status a través de Perl.

Por su ayuda, muchas gracias.

Saludos.

Hola,

tengo un archivo de texto del que quiero coger únicamente las líneas que están entre #START y #END, pero solo la zona que tiene dos columnas y no tres, y guardar los valores de la segunda columna para sumarlos. Es decir, mi archivo sería así:

Línea1
Línea2
Línea3
..
#START
column value
1 5
2 7
3 2
4 17
5 20
#END
línea52
línea53
..
#START
column value error
1 5 2
2 ...

Buenas a todos, tengo una utilidad que genera un registro en un log XML con el siguiente aspecto:

<?xml version="1.0" encoding="ISO8859-1" ?>
<?xml-stylesheet type="text/xsl" href="drivers.xsl"?>
<table>

<driver name="Driver1">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Manual</data>
<data field="Status">RUNNING</data>
<data field="TOA File">/33086.drv</data>
<data field="Size"></data>
</driver>
<driver name="Driver2">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Disabled</data>
<data field="Status">DISABLED</data>
<data field="TOA File">/33003.drv</data>
<data field="Size"></data>
</driver>
<driver name="Driver2">
<data field="Timestamp">2011:07:05 10:30:01</data>
<data field="Start Option">Manual</data>
<data field="Status">STOPPED</data>
<data field="TOA File">/33027.drv</data>
<data field="Size"></data>
</driver> ...