Foro - Perl en Español

¡¡Saludos!!

Soy nuevo en el foro, no sé si existe un lugar donde presentarse o qué rollo pero no encontré el reglamento :p En fin, disculpas si me brinco protocolos pero úrgeme ver si pueden ayudarme a aclarar un asunto. La situación es la siguiente:

Tengo un script que me sirve para cargar archivos en el servidor, éste estaba funcionando perfectamente hasta este jueves (07may2009) que fue el día que se subió correctamente el último ...

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

¡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

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

Éste es el error:

Code: Seleccionar todo

main::CambDirCas() called too early to check prototype at ./usugrupo.pl line 83.

No entiendo exactamente lo que me quiere indicar. Supuse que era por no declarar el prototipo de la función antes de la llamada, pero luego caí en que en este lenguaje da exactamente igual si lo haces antes o después. Si alguien puede orientarme se lo agradeceré mucho.

Saludos.

Hola

Estoy haciendo un programa con Gtk2 y Perl; hasta ahora ya aprendí como crear una ventana, agregarle botones, etc., pero tengo un problema: al leer un tutorial de gtk-perl encontré varias cosas interesantes, y una de ellas es cómo crear un separador.

Estaba intentando crear dos botones y un separador para separar de un label... así es como quiero que quede.

Code: Seleccionar todo

label
separador
botones

Pero al incluirle el separador, me aparece junto a los ...