Foro - Perl en Español

Buenas. Estoy buscando la forma de borrar todos los archivos de un directorio. Lo estoy intentando de la siguiente forma:

donde $rootdir = my directorio.

Agradecería cualquier ayuda.

Debes usar unlink:

Gracias por contestarme, pero no funciona. Ya verifiqué la ruta y sí es correcta. Con el comando que me pasaste no marca error, pero tampoco borra los archivos.

Depende un poco del sistema operativo. unlink() devuelve el número de elementos que ha borrado.

Prueba a hacer un print antes para saber qué es lo que estás intentando borrar:


Quizás debas poner


(lo de usar '/' o '\' depende un poco de tu sistema operativo.

O también, entrar en el directorio y borrar:



PERO YO NO LO HARÍA SIN COMPROBAR ANTES QUE EL chdir() HA FUNCIONADO CORRECTAMENTE.

¿Puedes poner el resultado del print, aquí?

la ruta tiene un espacio, crees que eso afecte?
$rootdir = E:/Mis documentos/web/
es correcto

Esto es lo que estoy haciendo:

No, el problema es la forma de escribir el comando. Estás intentando que Perl borre un fichero que se llama '*.*', no que borre todos los ficheros que corresponden a esa máscara.

Prueba con

o con

o con


Fíjate que con unlink, hay que tener cuidado a la hora de escribir lo que le sigue: o una lista de ficheros, o un comando diamante (<>) con caracteres comodín. Si lo pasas con paréntesis, estás pasando una lista de ficheros, pero lo que quieres es pasar una expresión con caracteres comodín.