[Cascavel-pm] Concatenar arquivos

[Patty Silva]

Pessoal consegui
 
 Fiz assim: e funcionou.. porem nao sei se eh a melhor forma:
  
  <CODE>
  --------------------------------------------------------------------------------------------------------------------------------
  #!/usr/bin/perl
  #
  my $caminho= "$ENV{HOME}/perl";
  
  chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";
  
  while ($arquivo = <*.txt>)
  {
  
              $arquivo=~ /(\d\d\d\d\d\d\d\d\d\d)/;
              $arquivo=$1;
              push(@arquivos,$arquivo);
  
  }
  
  my %hash;
  foreach (@arquivos)
  {
    $hash{$_} = 1;
  }
  foreach (sort keys %hash)
  {
    print "$_\n";
    `cat $_* >$_.txt`;
  }
  
  --------------------------------------------------------------------------------------------------------------------------------
  
  
  E outra coisa.. queria apagar os arquivos permanecendo somente o que eu concatenei.. :)
  
  Obrigada pessoal
 
 

Patty Silva <ptfzs em yahoo.com.br> escreveu: Ola Pessoal..
Eu again! :)

Fiz um script para concatenar arquivo de um diretorio:

<CODIGO>
---------------------------------------------------------------------------------------------
my $caminho= "$ENV{HOME}/teste";

chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";

while ($arquivo = <*.txt>)
{

  $InFile= $caminho.$arquivo;
 
   push(@arquivos,$arquivo);

}

system(`cat @arquivos>>$data_out.tmp`);
unlink(@arquivos);

---------------------------------------------------------------------------------------------

Porem quero concatenar arquivos com a msm data ou seja, 
os nomes dos arquivos sao ANOMESDIAHORA_tipo.txt
Quero concatenar arquivos com ANOMESDIAHORA iguais.. e gerar somente um ANOMESDIA.txt 

Se alguem puder me dar uma lUz :)

Obrigada



    

---------------------------------
  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 		
---------------------------------
 Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060714/601b4f77/attachment.html