annotate makein.pl @ 1:c8158764b7a7 draft default tip

Uploaded

#!/usr/bin/perl

###############################
# 
# ConFinder requires an input
# directory containing files
# with *.fastq or *.fq 
#
###############################

$fold=shift(@ARGV);

$dat = shift(@ARGV);
$fq = shift(@ARGV);
$fq=~s/\.gz//;

# If we're here the file should be some type
# of fastq data type, append .fq if it's 
# missing 
if(!(($fq=~/\.fastq$/)||($fq=~/\.fq$/))) {
  $fq=$fq.".fq";
}

`ln -s $dat $fold/$fq\n`;