Foro - Perl en Español

Buenas a todos.

Quiero chequear el asunto de los correos de una determinada carpeta de mi buzón para buscar una cadena en concreto y si la encuentra lanzar otra operación.

Estoy probando con:

http://search.cpan.org/~plobbes/Mail-IM ... Client.pod

pero mi nivel en Perl es bajo y me pierdo.

¿Voy por el camino adecuado? ¿Existe algún módulo más fácil para hacer lo que quiero?

Saludos.

Buen día, señores.

Espero que me puedan ayudar en este asunto.

¿Existe alguna forma de capturar el STDOUT o STDERR en una variable y volcar su contenido en alguna variable? Me explico...

DBD::mysql::db do failed: Incorrect number of arguments for PROCEDURE ihome.INSERT_QUEUE_JOIN; expected 7, got 8 at /usr/lib/perl5/site_perl/5.8.8/DB_UTIL.pm line 171.

Este es un error que se ve desde el STDOUT o STDERROR. Mi idea es colocarlo en una variable para poder sacar un log más ...

Saludos. Bueno, como verán estaba programando e hice un script así:

#!usr/bin/perl
$animals = "animals";
$help = "help";
print "~>";
chomp( $usr = <> );
if ( $usr eq $animals ) {
print "here animals!\n";
}
if ( $usr eq $help ) {
print "Here the help\n";
}
else {
print "$usr:command not found\n";
}


Todo me funciona bien, pero me falla una cosa: al escribir "animals" pasa esto:
~ $ perl script.pl ...

Una pregunta básica de la cual no tengo idea de cómo hacer. Tengo el siguiente código:
use Text::Banner;
$a=Text::Banner->new;

$a->set('test');

$a->fill("#");

print $a->get;

¿Alguien me podría indicar cómo hacer todo este código en una línea?

P.d.: intenté con Text::Banner->set("hola")->fill("#")->get;, pero nada.

¡Hola!

Quiero sustituir una parte de un XML.

Para ello había pensado en utilizar expresiones regulares y el operador s///.

El problema es que no soy capaz de seleccionar la parte que deseo del texto.

Os muestro un fragmento:

<vm name="h3" type="libvirt" subtype="kvm" os="linux">
<filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
<mem>128M</mem>
<if id="1" net="Net2">
<ipv4>10.0.2.2/24</ipv4>
</if>
<route type="ipv4" gw="10.0.2.1">default</route>
<filetree seq="start-www" root="/var/www">conf/tutorial_ubuntu/h3</filetree>
<exec seq="start-www" type="verbatim" ostype="system">chmod 644 /var/www/*</exec>
</vm>

<vm name="h4" type="libvirt" subtype="kvm" os="linux">
<filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
<mem>128M</mem> ...

Hola amigos.

Mi pregunta es la siguiente:

¿Se puede poner el mismo encabezado en varias páginas programadas en CGI, en similitud a PHP, que se puede poner el mismo encabezado?

Muchas gracias y a ser posible me gustaría saber el código.

¡Hola!

Estoy aprendiendo a programar en Perl y me he topado con un error con el que no contaba: no puedo devolver como valores de una función un par de hashes.

Por lo que he leído hay que hacerlo mediante referencias, pero, sinceramente, no sé qué son las referencias.

¿Alguien podría explicarme qué son y si hay alguna forma de devolver los hashes al estilo de como se hace para una variable normal?

Gracias.

Hola estimados, ¿es posible que me echen una mano con Perl? Necesito extraer cierto dato dentro de una línea, por ejemplo:

<dato1>2732</dato1>
<dato2>10440</dato2>
<dato3>10441</dato3>

y solo debo rescatar lo que está entre '>' y '<', o sea
2732
10440
10441

¿Cómo puedo hacer esto? Gracias.

Hola a todos:

He escrito un socket siguiendo los ejemplos que hay en Internet. Funciona bien.
El único problema es que cuando cierro el cliente se cierra también el servidor,
¿hay alguna manera de evitar esto?

Muchas gracias,
Jorge.

Hola.

Quisiera que en el siguiente script sólo me aparecieran 25 registros por página, es decir, 25 registros en la primera página, y si hay más registros en sucesivas páginas.

Muchas gracias.

#!/usr/bin/perl

use CGI::Carp qw( fatalsToBrowser );

do 'sessions.cgi';
do 'paidmembers.cgi';

if ( $ENV{REQUEST_METHOD} eq 'POST' ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else { $buffer = $ENV{QUERY_STRING} }
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, $value ...