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=&quot;C:/Tmp/e-Mails/ENVIADOS&quot;;</div><div>opendir(IMD, $diretorio) || die(&quot;Cannot open directory&quot;);</div><div>my @thefiles= readdir(IMD);</div><div>closedir(IMD);</div><div>

<br></div><div>my $produrar = &#39;ALLTASKS&#39;;</div><div><br></div><div>open(ARQ1,&quot;&gt;Lista.html&quot;);</div><div>print ARQ1 &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;Listagem de arquivos&lt;/title&gt;&lt;/head&gt;\n&quot;;</div>

<div>print ARQ1 &quot;&lt;body&gt;&lt;h1&gt;Listagem de Arquivos\n&quot;;</div><div><br></div><div><br></div><div>foreach my $f (@thefiles)</div><div>{</div><div> unless ( ($f eq &quot;.&quot;) || ($f eq &quot;..&quot;) )</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 &quot;&lt;table&gt;&lt;td&gt;&lt;a href=&quot;.$diretorio.&quot;/&quot;.$Nome.&quot;&gt;&quot;.$Nome.&quot;&lt;/a&gt;&lt;/td&gt;&lt;/table&gt;&quot;;</div>

<div><span class="Apple-tab-span" style="white-space:pre">        </span>}    </div><div> }</div><div>}</div><div><br></div><div>print ARQ1 &quot;&lt;/body&gt;&lt;/html&gt;\n&quot;;</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>