Mercurial > repos > konradpaszkiewicz > preppereadsforveletfasta
diff shuffleSequences_fastq.pl @ 0:4d237a31970b default tip
Migrated tool version 1.0.0 from old tool shed archive to new tool shed repository
author | konradpaszkiewicz |
---|---|
date | Tue, 07 Jun 2011 17:42:21 -0400 |
parents | |
children |
line wrap: on
line diff
--- /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 $_; +}