Não Thiago.<div><br></div><div>Aqui agora tá ok!</div><div><br></div><div><br></div><div>segue.</div><div><br></div><div>------------------------ CÓDIGO</div><div><br></div><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>my @arquivos = grep(/^$produrar/,@thefiles);</div><div>foreach my $f (@arquivos)</div><div>{</div><div> unless ( ($f eq ".") || ($f eq "..") )</div>
<div> { </div><div> print ARQ1 "<table><td><a href=".$diretorio."/".$f.">".$f."</a></td></table>";</div><div> }</div><div>}</div><div><br></div>
<div>print ARQ1 "</body></html>\n";</div><div>close(ARQ1);</div></div><div><br></div><div>------------------------ SAÍDA</div><div><br></div><div><span class="Apple-style-span" style="font-family: 'Times New Roman'; font-size: medium; "><pre style="word-wrap: break-word; white-space: pre-wrap; ">
<html><head><title>Listagem de arquivos</title></head>
<body><h1>Listagem de Arquivos
<table><td><a href=C:/Tmp/e-Mails/ENVIADOS/ALLTASKS - MAR 003-08.msg>ALLTASKS - MAR 003-08.msg</a></td></table><table><td><a href=C:/Tmp/e-Mails/ENVIADOS/ALLTASKS - Planilha MAR 028-09.msg>ALLTASKS - Planilha MAR 028-09.msg</a></td></table><table><td><a href=C:/Tmp/e-Mails/ENVIADOS/ALLTASKS - ROD 061-09.msg>ALLTASKS - ROD 061-09.msg</a></td></table><table><td><a href=C:/Tmp/e-Mails/ENVIADOS/ALLTASKS MAR 004-08.msg>ALLTASKS MAR 004-08.msg</a></td></table><table><td><a href=C:/Tmp/e-Mails/ENVIADOS/ALLTASKS MAR 027-08.msg>ALLTASKS MAR 027-08.msg</a></td></table></body></html></pre>
</span></div><div><br></div><div><br></div><br><div class="gmail_quote">Em 20 de agosto de 2010 11:47, <span dir="ltr"><<a href="mailto:thiagoglauco@ticursos.net">thiagoglauco@ticursos.net</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Pode me explicar isso:<br>
<br>
my $produrar = 'ALLTASKS';<div class="im"><br>
my @arquivos = grep(/^$produrar/,@thefiles);<br>
<br></div>
Acho que esta no loop... O codigo modificado abaixo gerou apenas uma saida no meu sistema!!!<br>
<br>
use strict;<br>
2 use warnings;<br>
3<br>
4 my $diretorio=".";<br>
5 opendir(IMD, $diretorio) || die("Cannot open directory");<br>
6 my @thefiles= readdir(IMD);<br>
7 closedir(IMD);<br>
8<br>
9 my $produrar = 'teste.c';<br>
10<br>
11 open(ARQ1,">Lista.html");<br>
12 print ARQ1 "<html><head><title>Listagem de arquivos</title></head>\n";<br>
13 print ARQ1 "<body><h1>Listagem de Arquivos\n";<br>
14<br>
15 my @arquivos;<br>
16<br>
17 foreach my $f (@thefiles)<br>
18 {<br>
19 unless ( ($f eq ".") || ($f eq "..") )<br>
20 {<br>
21 @arquivos = grep(/^$produrar/,@thefiles);<br>
22 }<br>
23 }<br>
use strict;<br>
2 use warnings;<br>
3<br>
4 my $diretorio=".";<br>
5 opendir(IMD, $diretorio) || die("Cannot open directory");<br>
6 my @thefiles= readdir(IMD);<br>
7 closedir(IMD);<br>
8<br>
9 my $produrar = 'teste.c';<br>
10<br>
11 open(ARQ1,">Lista.html");<br>
12 print ARQ1 "<html><head><title>Listagem de arquivos</title></head>\n";<br>
13 print ARQ1 "<body><h1>Listagem de Arquivos\n";<br>
14<br>
15 my @arquivos;<br>
16<br>
17 foreach my $f (@thefiles)<br>
18 {<br>
19 unless ( ($f eq ".") || ($f eq "..") )<br>
20 {<br>
21 @arquivos = grep(/^$produrar/,@thefiles);<br>
22 }<br>
23 }<br>
24<br>
25 print "@arquivos";<br>
26 foreach my $Nome(@arquivos)<br>
27 {<br>
28 print ARQ1 "<table><td><a<br>
29 href=".$diretorio."/".$Nome.">".$Nome."</a></td></table>";<br>
30 }<br>
31<br>
32<br>
33<br>
34 print ARQ1 "</body></html>\n";<br>
<br>
gerou apenas uma saida no meu sistema<div><div></div><div class="h5"><br>
<br>
Quoting Ailton Zacarias <<a href="mailto:ailtonzsilva@gmail.com" target="_blank">ailtonzsilva@gmail.com</a>>:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Bom dia Amigos<br>
<br>
Gostaria de saber onde estou errando ... pq na listagem de arquivos ele<br>
duplica os nomes de arquivos??? Obrigado!<br>
<br>
<br>
use strict;<br>
use warnings;<br>
<br>
my $diretorio="C:/Tmp/e-Mails/ENVIADOS";<br>
opendir(IMD, $diretorio) || die("Cannot open directory");<br>
my @thefiles= readdir(IMD);<br>
closedir(IMD);<br>
<br>
my $produrar = 'ALLTASKS';<br>
<br>
open(ARQ1,">Lista.html");<br>
print ARQ1 "<html><head><title>Listagem de arquivos</title></head>\n";<br>
print ARQ1 "<body><h1>Listagem de Arquivos\n";<br>
<br>
<br>
foreach my $f (@thefiles)<br>
{<br>
unless ( ($f eq ".") || ($f eq "..") )<br>
{<br>
my @arquivos = grep(/^$produrar/,@thefiles);<br>
</blockquote>
}<br>
}<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
foreach my $Nome(@arquivos)<br>
{<br>
print ARQ1 "<table><td><a<br>
href=".$diretorio."/".$Nome.">".$Nome."</a></td></table>";<br>
}<br>
}<br>
}<br>
<br>
print ARQ1 "</body></html>\n";<br>
close(ARQ1);<br>
<br>
<br>
<br>
<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" target="_blank">ailton@f4computer.com</a><br>
Skype: ailton.zacarias<br>
<a href="http://www.f4computer.com" target="_blank">http://www.f4computer.com</a><br>
<br>
</blockquote>
<br>
<br>
<br></div></div>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div><br><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>