Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hello
I cannot get the following code to capture what is in a lookahead (when the lookahead is within capturing parens. .
What I'm trying to achieve is to capture substrings of length 'x' beginning with the first character in the fasta sequence (and the lookahead portion) progressing from the first character, the second, and so on, until the substrings run up against the end of the characters.
Thanks in advance for any help.
Chris
#!/usr/bin/perl use strict; use warnings; my $str = do {local $/; <DATA>}; $str =~ s/\s+//g; my $len = length $str; while (--$len > 780) { while ($str =~ /(.(?=.{$len}))/g) { print pos, "$1\n"; } pos = 0; } __DATA__ CAATATGCGAGGGACCTACATGTTGAGCATGACAATGAATTCTATTGAAAAAAAGAGTTG GAAGTATATACGAATATAAATAATGTGAAACAAAAGAAGAAAAGTGAATAAAAGGCACTT AAGACGCTATCCAATTGTGTATGAGAAGTGCAAACTCAATTTTTTTGCAAAAGACTTTTC TCAAACCTTTAATTGATGCGTTCCGTTCATACATCAACCGCGTCCCATACGTTTCGAAGA AAATTGCCTATATGTGTTATTTACATACTAGAGATATTTTAATATTGAAACAGTTGTATT TCTATTGTAATTACTATCTAAACGTCTCGTCCCACCGCTGTTGATAAAGCGGTGCCAATA TAATTTATAATCACGCCTGGGTAAATGACTTTTAATTTCTTAAATCATCGAAGTATGCGA AAACAAGAAGTCTTTATTCATAATAAAAAACAAATTCGGTTACTACGACTTTTATATGTC ATTCAATATTTGGTAATAATTTTACAGTATTAACCCTATCCTCATCTGATTCACTCTCTT CTAATTGCATATATTTTCAAATTCGCTTTCAGCGCTGTACAAAACCAGTAAGCAGATCTC GTACGAAGACTCAAATAAGTTGCATTGTTCGTATTCAAGGAAACCGGGGGGCAAAATTTC CAACCATATTTAAGTATGACAATATTTCCAAGTCAAGGATGCATGCTGTTCTTCTCTTCA TTAACTAGCTAACCAATTAGCTGAACGGCTTTGTATTTTACTTAACATATTGTCTATTGC ATAAAAAACCACTATTCAGC
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Capture Lookahead
by BrowserUk (Patriarch) on Jul 26, 2005 at 02:20 UTC | |
by Cristoforo (Curate) on Jul 26, 2005 at 02:57 UTC | |
by fishbot_v2 (Chaplain) on Jul 26, 2005 at 11:46 UTC | |
Re: Capture Lookahead
by Roy Johnson (Monsignor) on Jul 26, 2005 at 02:27 UTC | |
Re: Capture Lookahead
by GrandFather (Saint) on Jul 26, 2005 at 01:56 UTC | |
by Anonymous Monk on Jul 26, 2005 at 02:11 UTC | |
by GrandFather (Saint) on Jul 26, 2005 at 02:25 UTC | |
Re: Capture Lookahead
by anonymized user 468275 (Curate) on Jul 26, 2005 at 07:51 UTC | |
by Cristoforo (Curate) on Jul 26, 2005 at 16:47 UTC | |
Re: Capture Lookahead
by inman (Curate) on Jul 26, 2005 at 09:21 UTC |
Back to
Seekers of Perl Wisdom