Mie Ene 23, 2008 6:00 am
|
 |
danimera
Perlero Adicto

|
Registrado: 23 Jun 2005
Mensajes: 206
Ubicación: Colombia
|
|
| Como borrar directorios completos en PHP y en Perl |
|
|
| ¿Cómo puedo hacerlo en Perl y en PHP directorios que no estén vacíos? |
|
|
|
Mie Ene 23, 2008 6:51 am
|
 |
explorer
Moderador

|
Registrado: 24 Jul 2005
Mensajes: 3915
Ubicación: Valladolid, España
|
|
|
|
|
En PHP no sé... en Perl:
o
|
|
Mie Ene 23, 2008 7:12 am
|
 |
danimera
Perlero Adicto

|
Registrado: 23 Jun 2005
Mensajes: 206
Ubicación: Colombia
|
|
|
|
|
Jejeje. Gracias, sabía que era super rápido en Perl. Ya lo encontré en PHP. Es algo así para el que le sirva:
| php: |
function full_rmdir ($dirname){
if ($dirHandle = opendir($dirname)){
$old_cwd = getcwd();
chdir($dirname);
while ($file = readdir($dirHandle)){
if ($file == '.' || $file == '..') continue;
if (is_dir($file)){
if (!full_rmdir ($file)) return false;
}else{
if (! unlink($file)) return false;
}
}
closedir($dirHandle);
chdir($old_cwd);
if (! rmdir($dirname)) return false;
return true;
}else{
return false;
}
}
|
|
|
Mie Ene 23, 2008 8:00 am
|
 |
danimera
Perlero Adicto

|
Registrado: 23 Jun 2005
Mensajes: 206
Ubicación: Colombia
|
|
| Otra pregunta |
|
|
| ¿Qué tan eficiente es borrar archivos de más de 15 megas por medio de este módulo en Perl? |
|
Mie Ene 23, 2008 8:34 am
|
 |
explorer
Moderador

|
Registrado: 24 Jul 2005
Mensajes: 3915
Ubicación: Valladolid, España
|
|
|
|
|
| El borrado lo hace el sistema operativo... |
|
Powered by phpBB © 2001, 2005 phpBB Group
|