Mercurial > repos > konradpaszkiewicz > preppereadsforveletfasta

comparison shuffleSequences_fastq.pl @ 0:4d237a31970b default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
-1:000000000000 0:4d237a31970b
1 #!/usr/bin/perl
2
3 $filenameA = $ARGV[0];
4 $filenameB = $ARGV[1];
5 $filenameOut = $ARGV[2];
6
7 open $FILEA, "< $filenameA";
8 open $FILEB, "< $filenameB";
9
10 open $OUTFILE, "> $filenameOut";
11
12 while(<$FILEA>) {
13 print $OUTFILE $_;
14 $_ = <$FILEA>;
15 print $OUTFILE $_;
16 $_ = <$FILEA>;
17 print $OUTFILE $_;
18 $_ = <$FILEA>;
19 print $OUTFILE $_;
20
21 $_ = <$FILEB>;
22 print $OUTFILE $_;
23 $_ = <$FILEB>;
24 print $OUTFILE $_;
25 $_ = <$FILEB>;
26 print $OUTFILE $_;
27 $_ = <$FILEB>;
28 print $OUTFILE $_;
29 }