diff makein.pl @ 3:2734daba664f draft

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/makein.pl	Sat Oct 20 20:22:13 2018 -0400
@@ -0,0 +1,26 @@
+#!/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/$fq\n`;
+ $dat2= shift(@ARGV);
+ $fq2= shift(@ARGV);
+ $fq2=~s/\.gz//;
+ `ln -s $dat2 $fold/$fq\n`;
+}