Mercurial > repos > jtilman > flexbar
comparison flexbar.pl @ 22:12e4b3bb38c6
Adjusted tool definition to Flexbar release 2.4
author | jtilman |
---|---|
date | Tue, 06 Aug 2013 16:49:33 +0200 |
parents | d62311a7bac6 |
children | 2c6ab15e5964 |
comparison
equal
deleted
inserted
replaced
21:d62311a7bac6 | 22:12e4b3bb38c6 |
---|---|
1 #!/usr/bin/env perl | 1 #!/usr/bin/env perl |
2 | 2 |
3 # Flexbar wrapper for Galaxy tool definition, version 2.34 | 3 # Flexbar wrapper for Galaxy tool definition, version 2.4 |
4 # Author: Johannes Roehr | 4 # Author: Johannes Roehr |
5 | 5 |
6 use warnings; | 6 use warnings; |
7 use strict; | 7 use strict; |
8 | 8 |
18 my $fileType; | 18 my $fileType; |
19 | 19 |
20 $fileType = $1 if /\.(\w+)$/; | 20 $fileType = $1 if /\.(\w+)$/; |
21 $fileType = $format if /\.\w*fast\w$/; | 21 $fileType = $format if /\.\w*fast\w$/; |
22 $fileType = 'fasta' if /\.fasta$/; | 22 $fileType = 'fasta' if /\.fasta$/; |
23 $fileType = 'tabular' if $fileType eq 'lengthdist'; | 23 $fileType = 'csfasta' if /\.csfasta$/; |
24 $fileType = 'tabular' if /\.lengthdist$/; | |
24 | 25 |
25 my $file = $_; | 26 my $file = $_; |
26 | 27 |
27 s/_//g; | 28 s/_/-/g; |
28 | 29 |
29 my $name = "primary_". $id ."_". $_ ."_visible_". $fileType; | 30 my $name = "primary_". $id ."_". $_ ."_visible_". $fileType; |
30 | 31 |
31 rename $file, $name; | 32 rename $file, $name; |
32 rename $name, $folder; | 33 rename $name, $folder; |