Great! This worked like magic. Thanks a lot,
Perdeep K. Mehta, Ph.D. Hartwell Center for Bioinformatics and Biotechnology St. Jude Children's Research Hospital 332 N. Lauderdale Street Memphis, TN 38105 phone: 901-495 3774 fax: 901-495 2945 email: [EMAIL PROTECTED] http://www.hartwellcenter.org -----Original Message----- From: $Bill Luebkert [mailto:[EMAIL PROTECTED]] Sent: Wednesday, May 01, 2002 8:04 PM To: Mehta, Perdeep Cc: '[EMAIL PROTECTED]' Subject: Re: [Perl-unix-users] perl help Mehta, Perdeep wrote: > Hi All, > > I'm beginner to pattern matching in Perl and was writing a code to parse a > string. I tried pretty hard to extract the words that are of interest from a > string but had no luck. > > Here is all-in-one-line string that I want to parse: > $string = "biological process|mitosis|IEA|GO:0007067|MGD|na|biological > process|cell cycle|IEA|GO:0007049|MGD|na|cellular > component|intracellular|IEA|GO:0005622|MGD|na|molecular function|protein > tyrosine phosphatase|IEA|GO:0004725|MGD|na|biological process|M phase of > mitotic cell cycle|IEA|GO:0000087|MGD|na|biological process|protein amino > acid dephosphorylation|IEA|GO:0006470|MGD|na"; > > I want to extract recursively all words delimited by two pipes ( | ) that > follow a specific pattern like "process" or "component". For example, I want > mitosis, cell cycle, M phase of mitotic cell cycles, and protein amino acid > dephosphorylation, extracted that are associated with the pattern "process". > I tried several combinations of the following code but it gets only one word > or everything or nothing at all. > > while ($string =~ /process(\S+(?!\|)(\s\S+)*)/g) { > print "\tbiological process\t$1\n"; > } > > Correction to this code or an alternative suggestion is highly appreciated. This should handle the situation above: while ($string =~ /process\s*\|([^|]+)\|/g) { print "\tbiological process\t$1\n"; } -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
