[Rio-pm] Dúvida regex
Oi pessoa, estou precisando da ajuda de vcs em um problema idiota. eu jogo as imformações contidas na primeira coluna de um arquivo txt em um array, mas o problema é que nao consigo uma maneira de uniformizar o regex para fazer o match e subsequente extração dos elementos para o array pois existem caracteres especiais como pontos, pipes, barras, hifens entre outros nos meios dos elementos. eu tentei isso: next unless m/^.+\s+\w+=\d+/; existe outra forma a nao ser usar o ponto para encontrar qualquer caracter? Muito obrigado. -- 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
Re: [Rio-pm] Dúvida regex
Desculpa, isso realmente deve ser simples e nao estou sabendo expressar a minha duvida. ai vai um pedaço completo do arquivo. O que eu queria era um regex capaz de identificar as linhas que contem os resultados (ex: F55F3.2b 548 0.025 0.970 0.051 S1) e dai começar a extração dos itens da coluna. Obrigado. ### targetp v1.1 prediction results ## Number of query sequences: 516 Cleavage site predictions not included. Using NON-PLANT networks. Name LenmTP SP other Loc RC -- F55F3.2b 548 0.025 0.970 0.051 S1 DSIM0209463 685 0.193 0.839 0.025 S2 PB13537-PA272 0.081 0.063 0.906 _1 CPIJ016026-PA 575 0.109 0.844 0.093 S2 RPTMP00928-PA 595 0.028 0.909 0.148 S2 DSEC0203033 685 0.171 0.860 0.024 S2 Em 12 de março de 2013 20:32, Tiago Peczenyj tiago.pecze...@gmail.comescreveu: Então eu acho que não entendi a sua duvida. Tipo isso são colunas? vc quer extrair o que de cada uma delas? por exemplo AAEL00987-PA quero extrair: 00987 BA89.ES-PB quero extrair: PB gi|llum0001334.1-PA não quero isso. 2013/3/12 André Torres andretorre...@gmail.com: ai vao alguns que posso encontrar na minha coluna: AAEL00987-PA BA89.ES-PB gi|llum0001334.1-PA Obrigado. Em 12 de março de 2013 20:05, Tiago Peczenyj tiago.pecze...@gmail.com escreveu: De exemplos Em 12/03/2013 20:03, André Torres andretorre...@gmail.com escreveu: Oi pessoa, estou precisando da ajuda de vcs em um problema idiota. eu jogo as imformações contidas na primeira coluna de um arquivo txt em um array, mas o problema é que nao consigo uma maneira de uniformizar o regex para fazer o match e subsequente extração dos elementos para o array pois existem caracteres especiais como pontos, pipes, barras, hifens entre outros nos meios dos elementos. eu tentei isso: next unless m/^.+\s+\w+=\d+/; existe outra forma a nao ser usar o ponto para encontrar qualquer caracter? Muito obrigado. -- 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 ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- 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 -- Tiago B. Peczenyj Linux User #405772 http://about.me/peczenyj ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- 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
Re: [Rio-pm] primeiro Encontro Social? Ganhe uma cerveja!
Eu só participei de uma reuniao da criação do site do YAPC que foi no rio de janeiro. eu to meio atolado em relação a tempo, mas vou tentar brotar no proximo encontro social. Abraço galera. Em 13 de julho de 2012 11:05, Marcio Ferreira marciodesouzaferre...@gmail.com escreveu: OK! Parei! Mas não fui eu quem começou =P []s, Marcio Ferreira @_marcioferreira (11) 8567-1482 skype: marcio.ferreir4 marciodesouzaferreira.blogspot.com 2012/7/13 Junior Moraes juniiior...@gmail.com Hi. Eu também desacreditava da existência do Aureliano, até ele se cadastrar num fórum que freqüento e hoje tenho ele até no facebook. Parece inacreditável, mas o cara existe sim, inclusive aparentemente é normal. Tem dois braços, duas pernas, etc... Huahuahuahahuahahuahauhauh. []'s Em 13 de julho de 2012 10:33, Marcio Ferreira marciodesouzaferre...@gmail.com escreveu: Resposta típica de um bot.. =P []s, Marcio Ferreira @_marcioferreira (11) 8567-1482 skype: marcio.ferreir4 marciodesouzaferreira.blogspot.com 2012/7/13 Aureliano Guedes guedes_1...@hotmail.com Logico que existo... mas posso ser fruto da imaginação tambem... hahaha... -- From: marciodesouzaferre...@gmail.com Date: Fri, 13 Jul 2012 00:27:55 -0300 To: rio-pm@pm.org Subject: Re: [Rio-pm] primeiro Encontro Social? Ganhe uma cerveja! Aureliano, vc existe? informe seu CPF! []s, Marcio Ferreira @_marcioferreira (11) 8567-1482 skype: marcio.ferreir4 marciodesouzaferreira.blogspot.com 2012/7/12 Aureliano Guedes guedes_1...@hotmail.com Aff, prezado Breno, como vai pagar minha cerveja se você não vai beber para acompanhar e brindar?? Pelomenos ja sei quem será o motorista da rodada. hahaha -- Date: Thu, 12 Jul 2012 21:10:25 -0300 From: shono...@gmail.com To: rio-pm@pm.org Subject: Re: [Rio-pm] primeiro Encontro Social? Ganhe uma cerveja! Caramba Breno, nunca imaginei um abstênio incentivando o alcoolismo :-). Em 12/07/2012 13:58, breno br...@rio.pm.org escreveu: Oi pessoal, reparei que muitas pessoas aqui da lista ainda não foram a um Encontro Social. Então, seguindo a dica do brian d foy, vou fazer a seguinte oferta: Se esse é o seu PRIMEIRO encontro social de Perl, o seu PRIMEIRO chopp é por minha conta =) Não bebe álcool? Sem problema, troque seu vale chopp por um matte, suco ou refrigerante! Para fácil localização, haverão camelos de pelúcia na mesa =) Nos vemos lá! []s -b ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- __ Junior fvox Moraes -- \ \ .--. |o_o | |:_/ | // \ \ (| | ) /'\_ _/`\ \___)=(___/ ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm ___ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm -- 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
[Rio-pm] extraindo strings de um arquivo
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 specificcatalytic triadS327,E453,H567 3329383 Q#1 - AAEL000511-PA specificsubstrate binding pocket G245,G246,G247,E326,S327,A328,V331,A482,L486,N487,V522,G568,I57113 1329383 *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