Foro - Perl en Español

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

Hola a todos,

tengo un cgi que al ser ejecutado desde un formulario me devuelve error. En local (Win XP) me funciona correctamente.
Al darme error pensé que puede ser porque el servidor no tiene instalados unos módulos.

He creado un directorio lib/ en el servidor y he subido los .pm de mi directorio C:/perl/site/lib/Geo, pero me sigue dando error.

¿Hay que hacer algo más aparte de subirlos al servidor?

Gracias anticipadas / saludos / ...

Agradecería si me pudiesen ayudar en lo siguiente: Estoy buscando un módulo de Perl o algún software free que me permita generar reportes e Informes en mi sitio desarrollado en Perl, volcando datos desde una base MySQL.

¡¡¡¡Muchas gracias!!!! :D

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

Muy buenas tardes, resulta que necesito mostrar la UID y nombre de usuario cuando me convenga a través de una condición de if(). Los valores antes del if() me los pilla bien, pero cada vez que la comprobación del if() es correcta, me salta el siguiente error:

Code: Seleccionar todo

Use of uninitialized value in concatenation (.) or string at usugrupo3.pl line 182, <ENTRADA> line 11.

Os dejo el cacho de código que da el problema a ver ...

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

Hola, ante todo muy buenas noches. En la facultad me han planteado realizar un ejercicio bastante extenso, en la que una parte requiere el uso de split().

Resulta que al escribir en emacs:
@nombre = split /:/, $nombre;

emacs, a partir del segundo "/" me marca todo el texto como si fuese un print(), es decir, del mismo color rosado del contenido de print "este contenido";

Necesito ejecutar dicha orden de esa manera para extraer ...

Hola,

necesito saber una forma de comprobar si existe un elemento del vector. Necesito que me dé un error en la siguiente expresión:

if ($ARGV "no existe"){
error();
}

Necesito saber si existe ese elemento del vector y no sé cómo poner la parte de "no existe".

Muchas gracias.