|
3
|
1 #!/usr/bin/perl
|
|
|
2
|
|
|
3 ###############################
|
|
|
4 ##
|
|
|
5 ## Unable to figure out how to
|
|
|
6 ## drop *.gz in galaxy too xml.
|
|
|
7 ##
|
|
|
8 ###############################
|
|
|
9
|
|
|
10 $fold=shift(@ARGV);
|
|
|
11
|
|
|
12 if(@ARGV==2) {
|
|
|
13 $dat = shift(@ARGV);
|
|
|
14 $fq = shift(@ARGV);
|
|
|
15 $fq=~s/\.gz//;
|
|
|
16 `ln -s $dat $fold/$fq\n`;
|
|
|
17 } elsif (@ARGV==4) {
|
|
|
18 $dat1= shift(@ARGV);
|
|
|
19 $fq1= shift(@ARGV);
|
|
|
20 $fq1=~s/\.gz//;
|
|
5
|
21 `ln -s $dat1 $fold/$fq1\n`;
|
|
3
|
22 $dat2= shift(@ARGV);
|
|
|
23 $fq2= shift(@ARGV);
|
|
|
24 $fq2=~s/\.gz//;
|
|
5
|
25 `ln -s $dat2 $fold/$fq2\n`;
|
|
3
|
26 }
|
