Foro - Perl en Español

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

Alguien me puede explicar qué me está indicando este error:

Code: Seleccionar todo

Name "main::find" used only once: possible typo at ./usugrupo.pl line 179.

En el siguiente código me aparece el siguiente warning en la línea que os señalo:

Code: Seleccionar todo

Warning:
Use of uninitialized value in string ne at ./usugrupo.pl line 225, <ENTRADA1> l

if(-e $F_GRUP){
open(ENTRADA1, $F_GRUP) or die "Error: no se puede abrir el fichero $!";
while($linea1 = <ENTRADA1>){
chop $linea1;
@linea1 = split /:/, $linea1;#Meto en el vector los campos de /etc/grup
#print "linea1 vale $linea1\n";
if($linea1 ne ""){#ESTA ES LA LÍNEA QUE SEÑALA EL WARNING
@names ...