<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 ( &quot;limparlog&quot; );</p>
<p>my $dir = &quot;/var/imm/chats/&quot;;<br>opendir (MSN, $dir);<br>my @diretorio = readdir (MSN);<br>close (MSN);</p>
<p>my $usuario;<br>foreach $usuario (@clear) {<br>rmdir (&quot;$dir/$usuario&quot;);<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 &quot;bomba&quot; acima..?</font></div>