Help for this page

Select Code to Download


  1. or download this
    use re 'debug';
my $sequence_to_parse =">test\nATG\nGGG";
...
Match rejected by optimizer
Freeing REx: "^>.*\n(^(?!>).*$)+"
  2. or download this
    use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------
  3. or download this
    my $sequence_to_parse =">test\nATG\nGGG";
while ( $sequence_to_parse =~ m/(^>.+)|(^.+)/gm ) {
    if ( defined $1 ) {
...
got first line $1 (>test)
got other line $2 (ATG)
got other line $2 (GGG)