oi pessoal,<br><br>estou com uma duvida.<br clear="all"><br>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.<br>
<br>ai embaixo vai um exemplo da entrada e da saida que eu estou tendo e a que eu queria.<br><br>obrigado.<br><br><b>input:</b><br>Q#1 - >AAEL000511-PA     specific    catalytic triad    S327,E453,H567    3    3    29383<br>
Q#1 - >AAEL000511-PA     specific    substrate binding pocket    G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571    13    13    29383<br><br><b>output que estou tendo:</b><br>AAEL000511-PA S327,E453,H567<br>
AAEL000511-PA G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571<br><br><b>output desejado:</b><br>>AAEL000511-PA | S327,E453,H567 | G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I571<br><br>
<b>codigo:</b><br><br>open (READ, "$hmm_name") or die ("Error: $!");<br><br>while (<READ>)<br>{<br>    if ($_ =~/^Q#/) {<br>       @name_seq = split (" ", $_);<br>       $name_seq = $name_seq[2];<br>
       $triad = $name_seq[5];<br>       }       <br>       if ($triad == "triad"){<br>       @T = $name_seq[-4];<br>       }<br>           elsif ($triad = "binding"){<br>           @T = $name_seq[-4];<br>
           }<br>print "@T\n";<br>}<br>close (READ);<br><br><br><br>-- <br>André Torres<br><br>"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)<br>