in reply to look for substrings and getting their location

    $seq ~~ m:overlap/ GUAUG /;

    say "Found ", +@$0, " at:";
    say "\t", $_.pos for @$0;

[download]

So in Perl 5.8 and above you could write: 

    use Perl6::Rules;
    use Perl6::Say;

    $seq =~ m:overlap/ GUAUG /;

    say "Found ", scalar(@$0), " at:";
    say "\t", $_->pos for @$0;

[download]

And, as the modifier suggests, it correctly handles overlaps in the data.

Replies are listed 'Best First'.
Re: In Perl 6 that's just...
by Juerd (Abbot) on May 10, 2004 at 20:38 UTC

    say "\t", $_.pos for @$0;

    Can $_.pos here be written as .pos?

    Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

[reply]
      It can. I used the longer form because I was trying to keep the Perl 5 version as similar as possible to the Perl 6 version.

      Damian

[reply]

In Section Seekers of Perl Wisdom