http://qs321.pair.com?node_id=989261


in reply to extract only uppercases from string

Well, what did you try?
  • Comment on Re: extract only uppercases from string

Replies are listed 'Best First'.
Re^2: extract only uppercases from string
by losher (Initiate) on Aug 23, 2012 at 10:39 UTC
    ie. for the left string I have tried trick like:
    if ($string =~ m/([ACTG]+).*[actg]/) {
    print $1
    }
    and several other variations but all I get is an uppercase string till the first character other than ACTG.
[reply]
      #!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
$_ = 'G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA';
my @matches = "";
while( m{
    ([ACTG]+)# $1 is upper
    |
    ([actg]+) # $2 is lower
}gxsm
      ){
    if( $1 ){
       $matches[-1] .= $1;
    }
    if( $2 ){
       push @matches, "";
    }

}
dd \@matches;
__END__
["GGTGGAGCTG", "CCCTGCTACA"]

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom