Using perl Syntax Highlighting
donde $rootdir = my directorio.
Agradecería cualquier ayuda.
-
- Publicidad
Cómo borrar archivos
7 mensajes
• Página 1 de 1
Cómo borrar archivos
por lnx_hg » 2009-01-14 19:02 @834
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.
donde $rootdir = my directorio.
Agradecería cualquier ayuda.
- lnx_hg
- Perlero nuevo
- Mensajes: 54
- Registrado: 2007-08-13 12:52 @578
Publicidad
por explorer » 2009-01-14 19:36 @858
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í?
Prueba a hacer un print antes para saber qué es lo que estás intentando borrar:
Using perl Syntax Highlighting
Quizás debas poner
Using perl Syntax Highlighting
(lo de usar '/' o '\' depende un poco de tu sistema operativo.
O también, entrar en el directorio y borrar:
Using perl Syntax Highlighting
PERO YO NO LO HARÍA SIN COMPROBAR ANTES QUE EL chdir() HA FUNCIONADO CORRECTAMENTE.
¿Puedes poner el resultado del print, aquí?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2009-01-15 05:28 @269
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.
Prueba con
Using perl Syntax Highlighting
$rootdir = 'e:/mis documentos/web/promored/pub/eventos/20/*.*';
unlink <$rootdir>;
unlink <$rootdir>;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
o con
Using perl Syntax Highlighting
$rootdir = 'e:/mis documentos/web/promored/pub/eventos/20';
unlink <$rootdir/*.*>;
unlink <$rootdir/*.*>;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
o con
Using perl Syntax Highlighting
$rootdir = 'e:/mis documentos/web/promored/pub/eventos/20';
@ficheros = glob("$rootdir/*.*");
unlink @ficheros;
@ficheros = glob("$rootdir/*.*");
unlink @ficheros;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
7 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado