Peptide::PubmedPeptide::Pubmed is a Perl module that can extract peptide sequences from MEDLINE article abstracts. | |
Download |
Peptide::Pubmed Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Timur Shtatland
- Publisher web site:
- http://search.cpan.org/~shtatland/Peptide-Pubmed-1.02/lib/Peptide/Pubmed.pm
Peptide::Pubmed Tags
Peptide::Pubmed Description
Peptide::Pubmed is a Perl module that can extract peptide sequences from MEDLINE article abstracts. Peptide::Pubmed is a Perl module that can extract peptide sequences from MEDLINE article abstracts.SYNOPSIS use Peptide::Pubmed; $parser = Peptide::Pubmed->new; $in = { PMID => q, Author => q, Journal => q, Title => q, Abstract => q, Mesh => q, Chemical => q, }; $parser->parse_abstract($in); # get the peptide sequences in 1 letter symbols (select all words where the # combined word/abstract score is above threshold: # WordAbstScore >= WordAbstScoreMin): @seqs = $parser->get_seqs; print "@seqsn"; # prints: 'EYHHYNK RGD'EXAMPLES # same as above, set threshold explicitly: $parser->WordAbstScoreMin(0.4); @seqs = $parser->get_seqs; # set low threshold to get more peptide sequences (but at a cost of getting # more false positives) $parser->WordAbstScoreMin(-1); @seqs = $parser->get_seqs; print "@seqsn"; # prints: 'EYHHYNK RGD ACCCGTNA VEGFRI' # reset threshold back: $parser->WordAbstScoreMin(0.4); # get more data for the abstract: $abst = $parser->get_abst; print "$abst->{AbstScore}n"; # abstract score, in the interval print "$abst->{AbstMtext}n"; # abstract with sequences marked up: # 'Peptide sequences EYHHYNK and Arg-Gly-Asp, # but not ACCCGTNA or VEGFRI.' # get more data for the words, in addition to peptide sequences: @words = $parser->get_words; for my $word (@words) { # combined word/abstract score, in the interval print "$word->{WordAbstScore}n"; # word as found in the abstract, eg 'Arg-Gly-Asp,' print "$word->{WordOrig}n"; # peptide sequence in 1 letter symbols, eg 'RGD' print "$word->{WordSequence}n"; } # There are no mandatory input fields. This will work too, but may give lower score. $in = { Abstract => q, }; $parser->parse_abstract($in); @words = $parser->get_words; # No peptide sequences are found in empty input: $in = undef; $parser->parse_abstract($in); @words = $parser->get_words; Requirements: · Perl
Peptide::Pubmed Related Software