por explorer » 2013-12-12 14:04 @628
Sin ver el programa entero, es algo complicado, pero debería ser algo así (no probado):
Using perl Syntax Highlighting
while (my($clave, $valor) = each %hgrupos) {
my @h_grupo = split /:/, $valor;
for my $h_grupo (@h_grupo) {
if ($h_grupo eq $uid) { # encontrado
print "usuario $uid pertenece al grupo $clave\n";
last;
}
}
}
Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4
Última edición por
explorer el 2013-12-12 17:44 @781, editado 1 vez en total
Razón: Faltaba un last
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
