comparison makein.pl @ 1:c8158764b7a7 draft default tip

Uploaded
author estrain
date Sun, 21 Oct 2018 08:19:28 -0400
parents
children
comparison
equal deleted inserted replaced
0:454e2f1ccff4 1:c8158764b7a7
1 #!/usr/bin/perl
2
3 ###############################
4 #
5 # ConFinder requires an input
6 # directory containing files
7 # with *.fastq or *.fq
8 #
9 ###############################
10
11 $fold=shift(@ARGV);
12
13 $dat = shift(@ARGV);
14 $fq = shift(@ARGV);
15 $fq=~s/\.gz//;
16
17 # If we're here the file should be some type
18 # of fastq data type, append .fq if it's
19 # missing
20 if(!(($fq=~/\.fastq$/)||($fq=~/\.fq$/))) {
21 $fq=$fq.".fq";
22 }
23
24 `ln -s $dat $fold/$fq\n`;