[Bioperl-l] module for pattern matching- i got it thanx

[Stefan Kirov]

my $regexp=....
my $seq='ACGCATACACATCATCAGGACAT.....';
while ($seq=~m/($regexp)/g) {
  $matches{$-[0]}=$1;
}
You get a hash indexed by the position...
Stefan

gowthaman ramasamy wrote:

>Dear Andreas and others ..
>Thank you very much for the nice gesture. I got it working as told by
>Andreas and Xavier. thank you one and all. 
>I ll try String::Approx (from CPAN). this as well, as i need to search
>many genomes and manier times, I need the faster script.
>thank you every one
>  
>
>>    $str = "aabbaabbaabbaabb";
>>    while ($str =~ /aa/g) {
>>      print pos($str), "\n";
>>    }
>>
>>    
>>