Foro - Perl en Español

Hola,

¿cómo puedo visualizar un mail?

Ahorita puedo ver partes del mensaje así:
/^(Subject|From|Date):\s+/i && $_;

Y con esto puedo ver Subject, From y Date, pero no sé cómo ver el mensaje... ¿alguien sabe cómo?

salu2

Hola

Una pregunta... ¿cómo puedo hacer esto en un TextView?

Code: Seleccionar todo

"\n"

Es que todo me aparece así

Code: Seleccionar todo

holamundoadiosmundo

y quisiera que me apareciera así en el textview

Code: Seleccionar todo

hola
mundo
adios
mundo

También quisiera saber si puedo aumentar el tamaño a un TextEntry tanto vertical como horizontal.

salu2

¡Hola!,

Estoy intentando hacer un simple sistema de acceso para usuarios, estoy trabajando con el módulo CGI::Session del cual he leído documentación pero no logro entender mi problema.

Manejo dos scripts, uno para acceder y otro para ver el contenido.

Si los datos de acceso son correctos (usuario y contraseña) el script 1º me crea una sesión

# script1.pl

# Si nombre de usuario y contraseña son correctas entonces crea la sesión

$session = new ...

Muy buenas tardes, tengo un problema con un vector, que me da un cierto error, que no consigo resolver. Resulta que en la siguiente función:

sub gid_primario
{
my $usuario=$_;
open(LINEAS,$FICH_USU) or die "No se pudo abrir el fichero";
while($filas=<LINEAS>)
{
@filas = split (/:/,$filas);
if(defined($filas) && $filas eq $$usuario)#Linea del error
{
close(LINEAS);
return $filas;
}
}
close(LINEAS);
return 0;
}

Me devuelve 1 error (Repetido en cada iteración del bucle), que me indica ...

La YAPC::SA::2009 (Sur América) se celebrará los días 24 a 27 de junio de este año en Porto Alegre, Brasil, organizado por los monjes perleros brasileños (brasil.pm) y el grupo perlero argentino de Capital Federal (CaFe.pm).

Ya se ha presentado un esbozo de la agenda.

YAPC::NA::2009 (Norte América) se celebrará los días 22 a 24 de junio de este año, Pittsburgh (PA), en la Universidad Carnegie Mellon.

Ya está publicada la agenda.

Se recomienda realizar la reserva de alojamiento cuanto antes.

¡Hola! ¿Alguien sabe cómo puedo comprobar si un array está vacío?

Por ejemplo:
my $item = GetItem($item_id); # $item es un array que puede estar vacío

if (el array tiene algo){
warn "el array tiene datos!";
}else{
warn "el array está vacío!";
}

No sé cómo poner el if()... porque, en mi caso, $item está vacío y, por lo tanto, debería entrar por el else{} y no por el if().

He probado a poner en ...

Existe alguna función en Perl para mover un directorio. Si es así, ¿qué función es?, si no es así, ¿de qué manera podría hacerlo?

Saludos

Nuestro amigo J.J.Merelo (CPAN:JMERELO) ha recibido un premio por su novela, "Lujoyglamour.net".

Él se describe como un "bloguero desde que la bitácora era solamente un armario donde guardar los trastos del balandro y ubetense. Escribe de vez en cuando, pero más programas que novelas, sobre todo en ese lenguaje llamado Perl".

Muy buenas noches, estoy intentando comprobar si existe una shell en el sistema, y me ocurre un error que me ha dejado un poco tocado.

Code: Seleccionar todo

Unsuccesful stat on filename containing newline at ....

La línea de código del problema es la siguiente:
$rev="\."."$lineasrev";
if(!(-d $rev)){#Linea del error
$error2=1;
}

$rev contiene bien lo que quiero comprobar (que no sé si lo que pretendo está bien elaborado). Pero el error que me sale no lo comprendo ...