Foro - Perl en Español

opendir (DIR, $dir);
@contenido_directorio =readdir (DIR);
closedir (DIR);

if (-s $fich){   #$fich es un argumento que ya me han pasado
        open (FICH,">>$fich");
        @contenido_fichero = <FICH>;      #PROBLEMA
       
        foreach $elemento (@contenido_directorio){
                $ruta = $dir."/".$elemento;
                foreach $linea (@contenido_fichero){  #esto tampoco va
                        @campos = split / /, $linea;

                        $id = $campos[0];
                        $orden = chomp($campos[-1]);
                        if (-r $ruta && -x $ruta && !(-d $ruta)){
                                if($ruta eq $orden){
                                        $id++;
                                        $min = 0;
                                        $mes = "*";
                                        $dia_semana = "*";
                                        print FICH "$id $min $hora $dia $mes $dia_semana $ruta\n";
                                }
                        }
                }
               
        }
}

else{
        open (FICH,">$fich");
       
        foreach $elemento (@contenido_directorio){
                $ruta = $dir."/".$elemento;
                if (-r $ruta && -x $ruta && !(-d $ruta)){
                                $id++;
                                $min = 0;
                                $mes = "*";
                                $dia_semana = "*";
                                print FICH "$id $min $hora $dia $mes $dia_semana $ruta\n";
                               
                }
        }

}