view makein.pl @ 5:25964a74c6bc draft default tip

Uploaded

#!/usr/bin/perl

###############################
## 
## Unable to figure out how to 
## drop *.gz in galaxy too xml.
##
###############################

$fold=shift(@ARGV);

if(@ARGV==2) {
 $dat = shift(@ARGV);
 $fq = shift(@ARGV);
 $fq=~s/\.gz//;
 `ln -s $dat $fold/$fq\n`;
} elsif (@ARGV==4) {
 $dat1= shift(@ARGV);
 $fq1= shift(@ARGV);
 $fq1=~s/\.gz//;
 `ln -s $dat1 $fold/$fq1\n`;
 $dat2= shift(@ARGV);
 $fq2= shift(@ARGV);
 $fq2=~s/\.gz//;
 `ln -s $dat2 $fold/$fq2\n`;
}