diff shuffleSequences_fastq.pl @ 0:4d237a31970b default tip

Migrated tool version 1.0.0 from old tool shed archive to new tool shed repository

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/shuffleSequences_fastq.pl	Tue Jun 07 17:42:21 2011 -0400
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+$filenameA = $ARGV[0];
+$filenameB = $ARGV[1];
+$filenameOut = $ARGV[2];
+
+open $FILEA, "< $filenameA";
+open $FILEB, "< $filenameB";
+
+open $OUTFILE, "> $filenameOut";
+
+while(<$FILEA>) {
+	print $OUTFILE $_;
+	$_ = <$FILEA>;
+	print $OUTFILE $_; 
+	$_ = <$FILEA>;
+	print $OUTFILE $_; 
+	$_ = <$FILEA>;
+	print $OUTFILE $_; 
+
+	$_ = <$FILEB>;
+	print $OUTFILE $_; 
+	$_ = <$FILEB>;
+	print $OUTFILE $_;
+	$_ = <$FILEB>;
+	print $OUTFILE $_;
+	$_ = <$FILEB>;
+	print $OUTFILE $_;
+}