Foro - Perl en Español

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

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

Los Perl Mongers de Barcelona por fin se han decidido en la compra del dominio Perl.cat, y montar allí, con la ayuda de Movable Type, un sistema de bitácoras, sobre Perl, para la comunidad catalanoparlante.

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

Resulta que instalé un CMS por ahí y cuando instalo los módulos del repositorio me creo un archivo que quiero editar o borrar:

/home/pagues/public_html/mount/modules/linkmanager/lang/en_US.php

Pero no puedo ni con el administrador de archivos del hosting, ni por ftp, y cuando ejecuto una función de Perl para eliminarlo tampoco, :evil:

Y el de soporte técnico me dijo que hiciera un script para cambiarle los permisos ...

Hola de nuevo, quizás pregunte más de lo políticamente correcto pero estoy en las primeras fases y espero que ahora que estoy empezando a entrar en el asunto pueda ser más autosuficiente.

He estado buscando la manera de mediante JavaScript incluir elementos HTML dentro de otro elementos ya creados en el HTML y no he encontrado nada sobre el asunto, una vez más agradecería de antemano vuestra ayuda acerca de cómo implementar esto. Un saludo.

Buenas, tengo una duda y es que debo de coger una bbdd (en MySQL) localizada en un servidor que hay en la red y copiarme los datos a una bbdd (también MySQL) en local, todo esto utilizando un script de Perl que me sincronice las bbdd nada más arrancar la aplicación web de Perl.

Estoy probando lo primero en local y necesito saber porqué este script no me realiza ninguna consulta. Cojo una bbdd que ...