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)
_______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm