view pyCRAC/pyFastqSplitter.pl @ 0:19b20927172d draft

Uploaded
author swebb
date Tue, 18 Jun 2013 09:11:00 -0400
parents
children
line wrap: on
line source

#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my %opt;


GetOptions(\%opt, "f=s", "c=s", "o1=s", "o2=s","file_type=s", "version","id=s");

my $cmnd;

if (exists $opt{version}){
	$cmnd = "python /usr/local/bin/pyFastqSplitter.py --version";
}
else{
	$cmnd = "python /usr/local/bin/pyFastqSplitter.py -f $opt{f} -o $opt{id} --file_type=$opt{file_type}";

	if(defined $opt{c}){
		$cmnd.= " -c $opt{c}";
	}

}

system $cmnd;
system "mv $opt{id}_1.$opt{file_type} $opt{o1}";
system "mv $opt{id}_2.$opt{file_type} $opt{o2}";