Foro - Perl en Español

por **thedj** » 2009-05-09 08:37 @401

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub gid_primario
{
my$usuario=$_[0];
open(LINEAS,$FICH_USU)ordie"No se pudo abrir el fichero";
while($filas=<LINEAS>)
{
@filas=split(/:/,$filas);
if(defined($filas[0])&&$filas[0]eq$$usuario)#Linea del error
{
close(LINEAS);
return$filas[3];
}
}
close(LINEAS);
return0;
}Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Me devuelve 1 error (Repetido en cada iteración del bucle), que me indica lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 1.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 2.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 3.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 4.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 5.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 6.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 7.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 8.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 9.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 10.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 11.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 12.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 13.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 14.

Use of uninitialized value in string eq at usugrupo.pl line 817, <LINEAS> line 15.Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

He probado infinidad de cosas, y no se que le pasa, ya que el elemento $filas[0] y $$usuarios no están vacios porque ya los he metido en un print. He comprobado $filas[0] and $filas[0] también y nada. Anoche me lleve 2h intentando resolverlo y no habia forma. A ver si me podéis ayudar.

Un cordial saludo.

PD: También he probado a meter en la línea que devuelve $filas[3]:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if(defined($filas[3])){return$filas[3];}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pues si llamas a una función como te dicen otros, y se equivocan, pues entonces harías mejor en aprender tu mismo cómo se ha de llamar a la función, para no depender de ellos...

Una pregunta... ¿sabes qué significa pasar como argumentos de una función \$usuario?

Si no lo sabes, es que quizás estás usando características de Perl que sobrepasan tus conocimientos, con el consiguiente peligro de que algo no funcione como tu quieras... o que el profesor -que está leyendo esto- te lo pregunte.

Programar con el método prueba-error llega a ser muy aburrido y muchos estudiantes acaban odiando programar.

Perl no es tan aburrido porque su sintaxis es muy amplia y permite hacer cosas divertidas y creativas.

Pero solo si las conoces.

Por ejemplo, tu función se puede escribir así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub gid_primario {
my$usuario_a_buscar=shift;

open USUARIOS,$FICH_USUordie"ERROR: No se pudo abrir el fichero: $!\n";

while(my$linea_usuario=<USUARIOS>){
my@usuario=split/:/,$linea_usuario;

if($usuario[0]
and$usuario[0]eq$usuario_a_buscar){
return$usuario[3];
}
}
return0;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y ahora ya si que puedes hacer la llamada sin '\':

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$usuario='thedj';

gid_primario($usuario);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problemas con vector y error

Problemas con vector y error

Publicidad

¿Quién está conectado?