comparison flexbar.pl @ 40:2fcee21876db draft

Uploaded

39:ae7d2b47ad07

my @outFiles;

foreach(0..$#ARGV){
	my $arg = $ARGV[$_];
	
	if($arg =~ /\.(fastq\w+)$/ || $arg =~ /\.(fastq\w+\.gz)$/){
		
		$format = $1;
		my $file = $arg;
		
		$arg =~ s/\.fastq\w+$/\.fastq/;
		$arg =~ s/\.fastq\w+\.gz$/\.fastq\.gz/;
		
		$ARGV[$_] = $arg;
		rename $file, $arg;
		
		push @inFiles,  $arg if $arg =~ /\.dat_input\.fastq$/ || $arg =~ /\.dat_input\.fastq\.gz$/;
		push @outFiles, $arg if $arg =~ /\.dat\.fastq$/       || $arg =~ /\.dat\.fastq\.gz$/;
	}
}

my $call = join " ", @ARGV;

	
	my $file = $_;
	
	s/\.fastq$//;
	s/\.fastq\.gz$//;
	
	rename $file, $_;
}

40:2fcee21876db

my @outFiles;

foreach(0..$#ARGV){
	my $arg = $ARGV[$_];
	
	if($arg =~ /\.(fastq\w+)$/ || $arg =~ /\.(fastq\w+\.gz)$/ || $arg =~ /\.(fastq\w+\.bz2)$/){
		
		if(defined $format && $format ne $1){
			print STDERR "Paired read files should have the same format.\n";
			exit 1;
		}
		$format = $1;
		
		my $file = $arg;
		
		$arg =~ s/\.fastq\w+$/\.fastq/;
		$arg =~ s/\.fastq\w+\.gz$/\.fastq\.gz/;
		$arg =~ s/\.fastq\w+\.bz2$/\.fastq\.bz2/;
		
		push @inFiles,  $arg if $arg =~ /\.dat_input\.fastq$/ || $arg =~ /\.dat_input\.fastq\.gz$/ || $arg =~ /\.dat_input\.fastq\.bz2$/;
		push @outFiles, $arg if $arg =~ /\.dat\.fastq$/       || $arg =~ /\.dat\.fastq\.gz$/       || $arg =~ /\.dat\.fastq\.bz2$/;
		
		$ARGV[$_] = $arg;
		rename $file, $arg;
	}
}

my $call = join " ", @ARGV;

	
	my $file = $_;
	
	s/\.fastq$//;
	s/\.fastq\.gz$//;
	s/\.fastq\.bz2$//;
	
	rename $file, $_;
}