Mercurial > repos > estrain > confindr
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`; |