Vinicius P. Barbosa wrote:
>Tenho dois arquivos e gostaria de junta-los.... ate ai tudo bem (cat arq1
>arq2), porem gostaria de junta-los da seguinte maneira:
>
>linha1_arq1 linha1_arq2
>linha2_arq1 linha2_arq2
>linha3_arq1 linha3_arq2
>linha4_arq1 linha4_arq2
>.....
>e assim por diante... ambos os arquivos conterao o mesmo numero de linhas.
>
Posso sugerir isso aqui:
_________________________
#! /usr/bin/perl
die "uso : $0 <arquivo1> <arquivo2> <arquivo_dest>" unless (@ARGV != 3);
my ($arquivo1 , $arquivo2 , $arq_dest) = @ARGV;
open ARQ1,"<$arquivo1" || die "Erro ao abrir $arquivo1 : $!";
open ARQ2,"<$arquivo2" || die "Erro ao abrir $arquivo2 : $!";
open ARQ_DEST,">$arq_dest" || die "Erro ao abrir $arq_dest : $!";
my $counter=0;
while (<$arquivo1>)
{
chomp(my $linha1=$_);
my $linha2=<$arquivo2>;
print ARQ_DEST ,"$linha1\n$linha2";
$counter++;
print "\nProcessando linha $counter";
}
close ARQ1;
close ARQ2;
close ARQ_DEST;
print "\nFeito. $counter linhas de cada arquivo foram concatenadas\n";
________________________
N�o debugei, mas se n�o funcionar, me avisa a�...
Os 2 primeiros arquivos ser�o concatenados no tercerio, ok?
>
>
>Obrigado,
>
Retorne se funcionou...
>
>Vinicius
>
Leonardo
Assinantes em 15/02/2002: 2232
Mensagens recebidas desde 07/01/1999: 154708
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
