X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2FMakefile;h=96a4e7ed96d14ebf38013ff60216d6cda25bfa49;hb=cbe42056eafe54cb371f61f6360bef670b51a3da;hp=b12f882e1fd3cb9fd92dbd9909df11167943716c;hpb=95882d9fdab78fb90469798141d9308a65415fda;p=samtools.git

diff --git a/examples/Makefile b/examples/Makefile
index b12f882..96a4e7e 100644
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -45,4 +45,4 @@ calDepth:../libbam.a calDepth.c
 clean:
 		rm -fr *.bam *.bai *.glf* *.fai *.pileup* *~ calDepth *.dSYM ex1*.rg ex1.bcf
 
-# ../samtools pileup ex1.bam|perl -ape '$_=$F[4];s/\^.//g;$x=tr/A-Z/X/;$y=tr/a-z/x/;s/(\d+)(X)/$x-=$1,$2/eg;s/(\d+)(x)/$y-=$1,$2/eg;$_=join("\t",@F[0,1],$x,$y)."\n"'
\ No newline at end of file
+# ../samtools pileup ex1.bam|perl -ape '$_=$F[4];s/(\d+)(??{".{$1}"})|\^.//g;@_=(tr/A-Z//,tr/a-z//);$_=join("\t",@F[0,1],@_)."\n"'
\ No newline at end of file