Hi monks,

I'm trying to clean up a string which has some extra information in it for my situation. The string comes from a Samtools pileup. It's a representation of a single nucleotide from a multiple different sources (base reads column). My data in problem is following (note new lines added in order to prevent line being too long, they aren't really there :) )

.$.$G$.$.$C$.$.$.$G$.$,$,$,$.$.$.G,G,G...G,G...GG,.G.G...G.G....$.G..G
+,........G....,GGGG.,,,..G...,,.G.G..G..G..G
.G.GG..GG.G..,,G,,CG,G,GG..GG.$G.GGGG,,..GG...G.,G.GG.,G,G.$...,,.GGGG
+GG.GCG..G,,G,.G..G,,,G,.GGGG.,..G...,,,,G,,G..GGGG
A.,,,,,.+1GG.G.,,G,...G..GG,.G....+1G..GG..G,,G,,G.G,,.,,,.,,.CG.,,,,.
+,..G.,,,.,.,,GGGGGG,,.....G..GGGGG.,.G,,GG.G..GG,,
,....,.,..,G.,.,,,.,,,,G,,,.,.,..,.,,,...GG,.,G.,G......,,,..,,.......
+.,..,.,,.,...,,..,.,C,..,,,.,,,,,....,,..,,,.,....
.,.,,.,...,,.,,,-1a.,,,,,.,,,,,,..,..........,,,,,.,...,,.,,^],^].^],^
+],^].^],^F,^],^],^],^],

[download]


Now I want to do counting on bases and thus remove all extra information from it. I have regex like following s/\+([0-9]+)[ACGTNacgtn]{\1}//g; which unfortunately does't do anything. I'd like to know why? I would assume that quantifier cannot be a '\x' variable, but don't really know.

I can do the deed with 
while (m/\+([0-9]+)[ACGTNacgtn]/g) { 
  print "diff+: $1\n";
  my $m = $1;
  s/\+[0-9]+[ACGTNacgtn]{$m}// 
}

[download]
But that's not quite so nice. I would be cool to be able to do it with one regex.

Help most appreciated,

Edit: Fixed the capture group in place where it should have been :).

In reply to Regex fun by Hena

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.