Foro - Perl en Español

if(-e $F_GRUP){
                        open(ENTRADA1, $F_GRUP) or die "Error: no se puede abrir el fichero $!";       
                        while($linea1 = <ENTRADA1>){
                                chop $linea1;
                                @linea1 = split /:/, $linea1;#Meto en el vector los campos de /etc/grup
                                #print "linea1[3] vale $linea1[3]\n";
                                if($linea1[3] ne ""){#ESTA ES LA LÍNEA QUE SEÑALA EL WARNING
                                        @names = split /,/, $linea1[3];#Meto en un vector los nombres de los usuarios secundarios
                                        $num = @names;
                                }
                                else{
                                        $num = 0;
                                }