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>