<div>Bom dia, pessoal. Estou tentando remover algumas pastas que estão num diretório principal, usando o código abaixo:</div>
<p><br>use CGI qw ( :standard );<br>use warnings;<br>use strict;</p>
<p>my @clear = param ( "limparlog" );</p>
<p>my $dir = "/var/imm/chats/";<br>opendir (MSN, $dir);<br>my @diretorio = readdir (MSN);<br>close (MSN);</p>
<p>my $usuario;<br>foreach $usuario (@clear) {<br>rmdir ("$dir/$usuario");<br>}</p>
<div><font color="#888888">O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma coisa errada nessa "bomba" acima..?</font></div>