Soy nueva en el foro y estos últimos días estoy dando vueltas por esta página para realizar, por así decirlo, una minishell.
Me ha ayudado mucho en varias cosas, pero ahora me he quedado atascada en una función.
Consiste en una función que debe mostrar por pantalla el nombre de los grupos secundarios y primarios al recibir el nombre de un grupo principal (GID).
Using perl Syntax Highlighting
- # Ya hemos abierto los ficheros /etc/group y los ficheros
- # /etc/passwd y ahora procederemos a hacer la búsqueda a lo largo
- # de los ficheros (es un trozo de código que muestra los grupos #primarios)...
- foreach $group (@grupo) {
- @nombre_GID = split ':', $group;
- if ( $nombre_GID[0] == $usuario ) {
- foreach (@linea) {
- @campos = split ':', $_;
- if ( $priv_sec eq "-p" ) {
- if ( $campos[3] eq $nombre_GID[2] ) {
- print " $campos[0] $campos[2] primario\n";}}
- ...
- ...
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Creo que el error está en la línea 10. Esa comparación no me imprime por pantalla los grupos primarios.
Me gustaría saber cuál sería la comparación correcta, ya que creo que tengo un error de concepto más que de saber programar Perl.
¡Saludos y gracias por adelantado!
