<br> Mauricio..<br> Fiz assim: e funcionou.. porem nao sei se eh a melhor forma:<br> <br> <CODE><br> --------------------------------------------------------------------------------------------------------------------------------<br> <span style="color: rgb(255, 0, 0);">#!/usr/bin/perl</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">#</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">my $caminho= "$ENV{HOME}/perl";</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">while ($arquivo = <*.txt>)</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">{</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span
style="color: rgb(255, 0, 0);"> $arquivo=~ /(\d\d\d\d\d\d\d\d\d\d)/;</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"> $arquivo=$1;</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"> push(@arquivos,$arquivo);</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">}</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"></span><span style="color: rgb(255, 0, 0);">my %hash;</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">foreach (@arquivos)</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">{</span><br style="color: rgb(255, 0, 0);"> <span
style="color: rgb(255, 0, 0);"> $hash{$_} = 1;</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">}</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">foreach (sort keys %hash)</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);">{</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"> print "$_\n";</span><br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"> `cat $_* >$_.txt`;<br> </span><span style="color: rgb(255, 0, 0);">}</span><br style="color: rgb(255, 0, 0);"> <br> --------------------------------------------------------------------------------------------------------------------------------<br> <br> <br> E outra coisa.. queria apagar os arquivos permanecendo somente o que eu concatenei.. :)<br> <br> <br> Obrigada pessoal<br> <br> <br> <br><br><b><i>Mauricio Utils <msb.utils@gmail.com></i></b> escreveu:<blockquote
class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Tu pode criar um hash cuja chave seja o ANOMESDIA e o valor seja um array com os nomes dos arquivos.<br> No laço, tu separa com split('_', $arquivo) onde o primeiro valor retornado eh o ANOMESDIA, que tu vai usar como chave no hash.<br> Depois de preenchido o hash, tu faz outro laço iterando as chaves do hash e chamando o teu comando. que tal? ;-)<br> <br> Mauricio <br><br><div><span class="gmail_quote">On 7/13/06, <b class="gmail_sendername">Patty Silva</b> <<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> <div>Ola Pessoal..<br>Eu again! :)<br><br>Fiz um script para concatenar arquivo de um
diretorio:<br><br><CODIGO><br>---------------------------------------------------------------------------------------------<br><span style="color: rgb(255, 0, 0);"> my $caminho= "$ENV{HOME}/teste";</span><br style="color: rgb(255, 0, 0);"><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);">chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***"; </span><br style="color: rgb(255, 0, 0);"><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);">while ($arquivo = <*.txt>)</span><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);"> {</span><br style="color: rgb(255, 0, 0);"><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);"> $InFile= $caminho.$arquivo;</span><br style="color: rgb(255, 0, 0);"> <br style="color: rgb(255, 0, 0);"> <span style="color: rgb(255, 0, 0);"> push(@arquivos,$arquivo);</span><br style="color: rgb(255, 0, 0);"><br style="color: rgb(255, 0,
0);"><span style="color: rgb(255, 0, 0);">}</span><br style="color: rgb(255, 0, 0);"><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);"> system(`cat @arquivos>>$data_out.tmp`);</span><br style="color: rgb(255, 0, 0);"><span style="color: rgb(255, 0, 0);">unlink(@arquivos);</span><br><br>--------------------------------------------------------------------------------------------- <br><br>Porem quero concatenar arquivos com a msm data ou seja, <br>os nomes dos arquivos sao ANOMESDIAHORA_tipo.txt<br>Quero concatenar arquivos com ANOMESDIAHORA iguais.. e gerar somente um ANOMESDIA.txt <br><br>Se alguem puder me dar uma lUz :) <br><br>Obrigada<br></div><div><span class="ad"><img><br><br><br><div> </div><hr size="1"> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/"
title="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> Registre seu aparelho agora!</a> <div></div></span></div><br>_______________________________________________<br>PortoAlegre-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:PortoAlegre-pm@pm.org">PortoAlegre-pm@pm.org </a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/portoalegre-pm" target="_blank">http://mail.pm.org/mailman/listinfo/portoalegre-pm</a><br><br></blockquote></div> <br> _______________________________________________<br>PortoAlegre-pm mailing list<br>PortoAlegre-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/portoalegre-pm</blockquote><br><p> 
<hr size=1>
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/">Registre seu aparelho agora!</a>