Using perl Syntax Highlighting
my $p;
open(WHOAMI, "/cvsaux/controlScripts/conf/noFBusers.conf") || die "Cannot open noFBusers\n";
while ($p = <WHOAMI> {
chop ($p);
if ($p eq $whoami) {
print "\n\n";
print "OK $whoami is an authorized user\n\n";
exit 0;
}
else {
}
}
print "\n\n";
print "ERROR $whoami is NOT an authorized user\n\n";
close (WHOAMI);
open(WHOAMI, "/cvsaux/controlScripts/conf/noFBusers.conf") || die "Cannot open noFBusers\n";
while ($p = <WHOAMI> {
chop ($p);
if ($p eq $whoami) {
print "\n\n";
print "OK $whoami is an authorized user\n\n";
exit 0;
}
else {
}
}
print "\n\n";
print "ERROR $whoami is NOT an authorized user\n\n";
close (WHOAMI);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Hasta día de hoy este código habría el archivo, me leía la primera línea, luego compara con $whoami y así línea por línea del archivo.
Pero ahora he querido usar este trozo de código en otro sitio y no sé por qué pero me lee el archivo entero, y ya en la primera iteración tengo todas las líneas del archivo cargadas en $p. Y si pruebo con $_ me hace lo mismo.
Les escribo porque me estoy volviendo loco de buscar y no encuentro el motivo de por qué ahora me lee todo el fichero y no línea por línea.
Un saludo a los camellos.
