Re^2: extract only uppercases from string

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.

Comment on Re^2: extract only uppercases from string

Replies are listed 'Best First'.
Re^3: extract only uppercases from string by Anonymous Monk on Aug 23, 2012 at 10:56 UTC
`#!/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]

Replies are listed 'Best First'.

Re^3: extract only uppercases from string
by Anonymous Monk on Aug 23, 2012 at 10:56 UTC

#!/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]