Problema con la comparación de cadenas que contienen números
Publicado: 2009-05-04 12:21 @556Muy 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:
Os dejo el cacho de código que da el problema a ver si me podéis echar un cable:
Decir, que antes de nada hago una comprobación para ver si es un número.
Otro error que sale, relacionado con lo anterior es:
- Código: 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 si me podéis echar un cable:
Using perl Syntax Highlighting
open(ENTRADA,$FICH_USU) or die "Error: no se puede abrir el fichero";
$cont=0;
$comprueba=numero(\$$grupo);
if($comprueba){
while($usuario = <ENTRADA>){
@usuario=split(/:/,$usuario);
print "usu3 vale $usuario[3] y grupo vale $$grupo\n"; #Muestra los datos correctamente
if($usuario[3] == $$grupo) #línea 179 error de abajo
{
$cont=1;
print "$nombre[0] $nombre[2] primario\n"; #línea 182 error de arriba
}
}
close(ENTRADA);
open(ENTRADA,$FICH_GRU) or die "Error: no se puede abrir el fichero";
while($usuario = <ENTRADA>){
@usuario=split(/:/,$usuario);
if($usuario[2] == $$grupo)#Porque puede haber algun grupo en el archivo etc/group, que no contenga ningún usuario
{
$cont=1;
$numuid=comprueba_uid($nombre[3]);
print "$nombre[3] UID secundario\n";
}
}
close(ENTRADA);
if($cont == 0){
print "Error: el grupo $$grupo no existe\n";
}
}
$cont=0;
$comprueba=numero(\$$grupo);
if($comprueba){
while($usuario = <ENTRADA>){
@usuario=split(/:/,$usuario);
print "usu3 vale $usuario[3] y grupo vale $$grupo\n"; #Muestra los datos correctamente
if($usuario[3] == $$grupo) #línea 179 error de abajo
{
$cont=1;
print "$nombre[0] $nombre[2] primario\n"; #línea 182 error de arriba
}
}
close(ENTRADA);
open(ENTRADA,$FICH_GRU) or die "Error: no se puede abrir el fichero";
while($usuario = <ENTRADA>){
@usuario=split(/:/,$usuario);
if($usuario[2] == $$grupo)#Porque puede haber algun grupo en el archivo etc/group, que no contenga ningún usuario
{
$cont=1;
$numuid=comprueba_uid($nombre[3]);
print "$nombre[3] UID secundario\n";
}
}
close(ENTRADA);
if($cont == 0){
print "Error: el grupo $$grupo no existe\n";
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Decir, que antes de nada hago una comprobación para ver si es un número.
Otro error que sale, relacionado con lo anterior es:
- Código: Seleccionar todo
Argument "" isn't numeric in numeric eq (==) at usugrupo3.pl line 179, <ENTRADA> line 15.
