[Cascavel-pm] Remover diretórios

Rafael Lebrao Martins rafamv1 em ig.com.br
Sexta Janeiro 4 03:37:49 PST 2008


Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
diretório principal, usando o código abaixo:


use CGI qw ( :standard );
use warnings;
use strict;

my @clear = param ( "limparlog" );

my $dir = "/var/imm/chats/";
opendir (MSN, $dir);
my @diretorio = readdir (MSN);
close (MSN);

my $usuario;
foreach $usuario (@clear) {
rmdir ("$dir/$usuario");
}
O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma
coisa errada nessa "bomba" acima..?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080104/84997248/attachment.html 


Mais detalhes sobre a lista de discussão Cascavel-pm