Bom dia Amigos<div><br></div><div>Gostaria de saber onde estou errando ... pq na listagem de arquivos ele duplica os nomes de arquivos??? Obrigado!</div><div><br></div><div><div><br></div><div>use strict;</div><div>use warnings;</div>
<div><br></div><div>my $diretorio="C:/Tmp/e-Mails/ENVIADOS";</div><div>opendir(IMD, $diretorio) || die("Cannot open directory");</div><div>my @thefiles= readdir(IMD);</div><div>closedir(IMD);</div><div>
<br></div><div>my $produrar = 'ALLTASKS';</div><div><br></div><div>open(ARQ1,">Lista.html");</div><div>print ARQ1 "<html><head><title>Listagem de arquivos</title></head>\n";</div>
<div>print ARQ1 "<body><h1>Listagem de Arquivos\n";</div><div><br></div><div><br></div><div>foreach my $f (@thefiles)</div><div>{</div><div> unless ( ($f eq ".") || ($f eq "..") )</div>
<div> { </div><div> <span class="Apple-tab-span" style="white-space:pre">        </span>my @arquivos = grep(/^$produrar/,@thefiles); </div><div><span class="Apple-tab-span" style="white-space:pre">        </span>foreach my $Nome(@arquivos)</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>{</div><div><span class="Apple-tab-span" style="white-space:pre">        </span> print ARQ1 "<table><td><a href=".$diretorio."/".$Nome.">".$Nome."</a></td></table>";</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>} </div><div> }</div><div>}</div><div><br></div><div>print ARQ1 "</body></html>\n";</div><div>close(ARQ1);</div></div><div><br></div>
<div><br></div><div><br clear="all"><br>-- <br>Ailton Zacarias<br>F4 Computer – Soluções em Tecnologia da Informação<br>Tel: 55 +11 4062-0180 (Ailton)<br>Cel: 55 +11 8405-8334<br>MSN: <a href="mailto:ailton@f4computer.com">ailton@f4computer.com</a><br>
Skype: ailton.zacarias<br><a href="http://www.f4computer.com">http://www.f4computer.com</a><br>
</div>