[Rio-pm] extraindo strings de um arquivo

[André Torres]

oi pessoal,

estou com uma duvida.

eu estou extraindo duas colunas de um arquivo texto, mas gostaria de deixar
elas organizadas em apenas em uma linha e nao em duas como estoa no arquivo
original. nao sei como fazer para o que eu li na primeira linha ser
colocado junto o que for lido na segunda.

ai embaixo vai um exemplo da entrada e da saida que eu estou tendo e a que
eu queria.

obrigado.

*input:*
Q#1 - >AAEL000511-PA     specific    catalytic triad    S327,E453,H567
3    3    29383
Q#1 - >AAEL000511-PA     specific    substrate binding pocket
G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571    13
13    29383

*output que estou tendo:*
AAEL000511-PA S327,E453,H567
AAEL000511-PA
G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571

*output desejado:*
>AAEL000511-PA | S327,E453,H567 |
G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571

*codigo:*

open (READ, "$hmm_name") or die ("Error: $!");

while (<READ>)
{
    if ($_ =~/^Q#/) {
       @name_seq = split (" ", $_);
       $name_seq = $name_seq[2];
       $triad = $name_seq[5];
       }
       if ($triad == "triad"){
       @T = $name_seq[-4];
       }
           elsif ($triad = "binding"){
           @T = $name_seq[-4];
           }
print "@T\n";
}
close (READ);



-- 
André Torres

"Quando o homem aprender a respeitar até o menor ser da criação, seja
animal ou vegetal, ninguém precisará ensiná-lo a amar seu semelhante."
(Albert Schweitzer - Nobel da Paz de 1952)
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120602/546792c5/attachment.html>