Foro - Perl en Español

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

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

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

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

En este trocito de código nunca entra en el if():

if(-e $F_GRUP){
open(ENTRADA1, $F_GRUP) or die "Error: no se puede abrir el fichero $!";
while($linea1 = <ENTRADA1>){
@linea1 = split /:/, $linea1; # Meto en el vector los campos de /etc/grup
print "linea1 vale $linea1";
if ($linea1 eq "") {
print "EOOOO";
@names = split /,/, $linea1; # Meto en un vector los nombres de los usuarios secundarios
}
print "\n";

No sé si estoy ...

Hola,

tengo un problema de "diseño" de un programa en Perl que no sé cómo se puede solucionar.

Tengo un script en Perl llamado "General.pl". Este script llama mediante la función system() a un segundo script Perl llamado "Secundario.pl". "General.pl" tiene que esperar a que acabe la ejecución de "Secundario.pl" para poder continuar. "Secundario.pl" tarda alrededor de una hora en ejecutarse.

El problema que tengo es que ahora necesito llamar tres veces a "Secundario.pl". Si ...