comparison scripts/pickUniqPairFastq.pl @ 11:e19d9742c99b draft

planemo upload for repository https://github.com/portiahollyoak/Tools commit bfcc36291d97d1c0986f034ca1a03433e8299ff2-dirty

10:3200a0299230

	my ($xt)=$f[11]=~/XT:A:(.)/;

	## revcom the read mapped to the reverse strand
	if($f[1]=~/r/)
	{
		my $seq=Bio::Seq->new(-seq=>$f[9]);
		$f[9]=$seq->revcom->seq;
		$f[10]=reverse $f[10];
	}
	if (($rnum == 1) || ($rnum == 2))
	{

11:e19d9742c99b

	my ($xt)=$f[11]=~/XT:A:(.)/;

	## revcom the read mapped to the reverse strand
	if($f[1]=~/r/)
	{
		my $seq=Bio::Seq->new(-seq=>$f[9], -alphabet => 'dna');
		$f[9]=$seq->revcom->seq;
		$f[10]=reverse $f[10];
	}
	if (($rnum == 1) || ($rnum == 2))
	{