[Bioperl-l] about bioperl issue

Scott Markel SMarkel at accelrys.com
Thu Dec 10 09:47:36 EST 2009


Reginald,

I didn't see anything highlighted in red but the three strings in the
pairwise alignment display can be obtained from an HSP using

    $hsp->query_string()
    $hsp->hit_string()
    $hsp->homology_string()

Scott

Scott Markel, Ph.D.
Principal Bioinformatics Architect  email:  smarkel at accelrys.com
Accelrys (SciTegic R&D)             mobile: +1 858 205 3653
10188 Telesis Court, Suite 100      voice:  +1 858 799 5603
San Diego, CA 92121                 fax:    +1 858 799 5222
USA                                 web:    http://www.accelrys.com

http://www.linkedin.com/in/smarkel
Vice President, Board of Directors:
    International Society for Computational Biology
Chair: ISCB Publications Committee
Associate Editor: PLoS Computational Biology
Editorial Board: Briefings in Bioinformatics


-----Original Message-----
From: bioperl-l-bounces at lists.open-bio.org [mailto:bioperl-l-bounces at lists.open-bio.org] On Behalf Of Hsueh
Sent: Thursday, 10 December 2009 6:22 AM
To: bioperl-l at bioperl.org
Subject: [Bioperl-l] about bioperl issue
Importance: High

Dear 

The following is code. 


--------------------------------------------------------------------------------

my at params_rb = ( 'program'  => 'blastn',
            'database' => 'DB\\RB_GUS\\RB_GUS'); my $factory_rb = Bio::Tools::Run::StandAloneBlast->new(@params_rb);

my $input_rb = Bio::Seq->new(-id  =>"test_query",
                       -seq => $testline2); my $blast_report_rb = $factory_rb->blastall($input_rb);

 while (my $result_rb =  $blast_report_rb-> next_result ) {
  while (my $hit_rb = $result_rb->next_hit()){
   while (my $hsp_rb = $hit_rb->next_hsp()){
    print $hit_rb->name,"\nevalue = " ,  $hsp_rb->evalue , "\t score = " , $hsp_rb->score , "\n" ;
    #print " ",$hit->name,"\n";
   }
  }
 }

--------------------------------------------------------------------------------


I know how to get "name", "evalue" and  "score", but I don't know how  to get the word which is in red color. (or please see attachment.)
------------------------------------------------------------------------------------------------------------------
Query: 147 ctctttactcttaggtttacccgccggggtatcgtggcaaacaaggatagtttaaacaga 206
                   |||||| ||||||||||||||||||    |||| || ||||||  |||||||||||| ||
Sbjct: 114   ctcttttctcttaggtttacccgccaatatatcctgtcaaacactgatagtttaaactga 173
------------------------------------------------------------------------------------------------------------------ 
  
I will appreciate if you could tell me how to do it.
Thank you.

Reginald Hsueh




More information about the Bioperl-l mailing list