[Bioperl-l] Merging fragments in a simplealign

[Mark A. Jensen]

I'd recommend making an enhancement request via Bugzilla, so we don't forget-
MAJ
----- Original Message ----- 
From: "Chris Fields" <cjfields at illinois.edu>
To: "Albert Vilella" <avilella at gmail.com>
Cc: "bioperl-l" <Bioperl-l at lists.open-bio.org>
Sent: Friday, January 22, 2010 2:22 PM
Subject: Re: [Bioperl-l] Merging fragments in a simplealign


> This could exist, but should go into a general Utilities module.  Part of the 
> Align refactoring was to pull a good number of the methods into a general 
> utilities module, so this would fit into that category.
>
> chris
>
> On Jan 22, 2010, at 11:50 AM, Albert Vilella wrote:
>
>> Or to rephrase my answer, what is the closest way for the code below that
>> already exists?
>>
>> On Fri, Jan 22, 2010 at 4:04 PM, Albert Vilella <avilella at gmail.com> wrote:
>>
>>> Is there/should be a 'have_pairwise_overlap' method similar to this?
>>>
>>> # $seq1 and $seq3 have matching ids
>>> my $seq1 = $aln->each_seq_by_id($seq1->display_id);
>>> my $seq3 = $aln->each_seq_by_id($seq3->display_id);
>>>
>>> my $ret = $aln->have_pairwise_overlap($seq1,$seq3);
>>>
>>>
>>> On Fri, Jan 22, 2010 at 1:40 PM, Chris Fields <cjfields at illinois.edu>wrote:
>>>
>>>> May be something for the cook/scrapbook?
>>>>
>>>> chris
>>>>
>>>> On Jan 22, 2010, at 7:31 AM, Mark A. Jensen wrote:
>>>>
>>>>> Here's one of my favorite tricks for this: XOR mask on gap symbol.
>>>>> MAJ
>>>>>
>>>>> use Bio::SeqIO;
>>>>> use Bio::Seq;
>>>>> use strict;
>>>>> my $seqio = Bio::SeqIO->new( -fh => \*DATA );
>>>>>
>>>>> my $acc = $seqio->next_seq->seq ^ '-';
>>>>> while ($_ = $seqio->next_seq ) {
>>>>>  $acc ^= ($_->seq ^ '-');
>>>>> }
>>>>> my $mrg = Bio::Seq->new( -id => 'merged',
>>>>>  -seq => $acc ^ '-' );
>>>>> 1;
>>>>>
>>>>>
>>>>> __END__
>>>>>> seq2.234
>>>>> QWERTYU-------------------
>>>>>> seq2.345
>>>>> ----------ASDFGH----------
>>>>>> seq2.456
>>>>> -------------------ZXCVBNM
>>>>>
>>>>> ----- Original Message ----- From: "Albert Vilella" <avilella at gmail.com
>>>>>
>>>>> To: <bioperl-l at lists.open-bio.org>
>>>>> Sent: Friday, January 22, 2010 8:07 AM
>>>>> Subject: [Bioperl-l] Merging fragments in a simplealign
>>>>>
>>>>>
>>>>>> Hi,
>>>>>> I would like to write a script that merges fragments in a
>>>> Bio::SimpleAlign
>>>>>> object on the basis of
>>>>>> some $seq->display_name rule.
>>>>>> I basically want to start with something like this:
>>>>>> seq1.123     QWERTYUIOPASDFGHJKLZXCVBNM
>>>>>> seq2.234     QWERTYU-------------------
>>>>>> seq2.345     ----------ASDFGH----------
>>>>>> seq2.456     -------------------ZXCVBNM
>>>>>> And end with something like this:
>>>>>> seq1.123     QWERTYUIOPASDFGHJKLZXCVBNM
>>>>>> seq2.mrg     QWERTYU---ASDFGH---ZXCVBNM
>>>>>> Can people suggest any Bio::SimpleAlign methods that would help here?
>>>>>> Cheers,
>>>>>> Albert.
>>>>>> _______________________________________________
>>>>>> Bioperl-l mailing list
>>>>>> Bioperl-l at lists.open-bio.org
>>>>>> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>>>>>>
>>>>> _______________________________________________
>>>>> Bioperl-l mailing list
>>>>> Bioperl-l at lists.open-bio.org
>>>>> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>>>>
>>>>
>>>
>> _______________________________________________
>> Bioperl-l mailing list
>> Bioperl-l at lists.open-bio.org
>> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>
>
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>
>