Patty,<br><br>Eu não sou tão mau assim, os que me conhecem pode confirmá-lo. Vamos começar do início, que é: qual é o seu problema? Se você quer listar o conteúdo de um diretório, existem maneiras mais fáceis de fazê-lo, como por exemplo:
<br><br><code><br>use strict;<br>use warnings;<br><br>my $basedir = "/var/www";<br><br>opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";<br>while (defined(my $file = readdir($dir))) {
<br> print "Arquivo: $file\n";<br>}<br></code><br><br>Outra opção que você tem é utilizar glob (assumindo que o trecho modificado seja o de depois da definição de variável $basedir:<br><br><code><br>
foreach my $file (glob("${basedir}/*")) {<br> print "Arquivo: $file\n";<br>}<br></code><br><br>Porém esta utilização é desaconselhada.<br><br>Eu preferiria uma solução dessas pois é independente do sistema operacional.
<br><br><div><span class="gmail_quote">[snip]</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><span class="e" id="q_10bb3e59186b9066_1">
<blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><span><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>#!/usr/bin/perl<br><br>use File::Listing qw(parse_dir);<br><br>for (parse_dir(`ls -l`))
<br>{<br>print "teste";<br> ($name, $type, $size, $mtime, $mode) = @$_;<br> next if $type ne 'f'; # plain file <br>}<br><br></div></blockquote></div></span></div></blockquote></div></blockquote></span></div>
</blockquote></div>[snip]<br><br>-- <br>Igor Sutton Lopes<br>