comparison fastx_barcode_splitter.pl @ 3:e7b7cdc1834d draft

planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/fastx_barcode_splitter_enhanced commit a3b5b09c69f880529df96bdd5e050d712fa35cf4-dirty

2:32304398ef67

# Strip end of readids when matching to avoid mismatch between read 1, 2, 3, etc.
sub strip_read_id {
	my $read_id = shift;
	my $stripped_read_id = $read_id;
	if ($read_id_check_strip_characters) {
		if ($read_id =~ /@([a-zA-Z0-9_-]+):([0-9]+):([a-zA-Z0-9]+):([0-9]+):([0-9]+):([0-9]+):([0-9]+) ([0-9]+):([YN]):([0-9]+):([ACGT]+){0,1}/) { # CASAVA 1.8+
			my @parts = split(/ /,$read_id);
			$stripped_read_id = $parts[0];
		} else { # CASAVA 1.7 and earlier
			$stripped_read_id = substr($read_id, 0, length($read_id)-$read_id_check_strip_characters);
		}

3:e7b7cdc1834d

# Strip end of readids when matching to avoid mismatch between read 1, 2, 3, etc.
sub strip_read_id {
	my $read_id = shift;
	my $stripped_read_id = $read_id;
	if ($read_id_check_strip_characters) {
		if ($read_id =~ /@([^:]+):([0-9]+):([^:]+):([0-9]+):([0-9]+):([0-9]+):([0-9]+) ([0-9]+):([YN]):([0-9]+):([ACGT]+){0,1}/) { # CASAVA 1.8+
			my @parts = split(/ /,$read_id);
			$stripped_read_id = $parts[0];
		} else { # CASAVA 1.7 and earlier
			$stripped_read_id = substr($read_id, 0, length($read_id)-$read_id_check_strip_characters);
		}