Using perl Syntax Highlighting
sub gid_primario
{
my $usuario=$_[0];
open(LINEAS,$FICH_USU) or die "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);
return 0;
}
{
my $usuario=$_[0];
open(LINEAS,$FICH_USU) or die "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);
return 0;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Me devuelve 1 error (Repetido en cada iteración del bucle), que me indica lo siguiente:
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.
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]: