Mercurial > repos > jtilman > flexbar

comparison flexbar.pl @ 28:6536146320ef draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jtilman
date Mon, 02 May 2016 05:19:43 -0400
parents 2c6ab15e5964
children 9709dbd13ee3
comparison
equal deleted inserted replaced
27:db26fb0c6389 28:6536146320ef
1 #!/usr/bin/env perl 1 #!/usr/bin/env perl
2 2
3 # Flexbar wrapper for Galaxy tool definition, version 2.5 3 # Flexbar wrapper for Galaxy tool definition, version 2.7
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 = 'csfasta' if /\.csfasta$/;
24 $fileType = 'tabular' if /\.lengthdist$/; 23 $fileType = 'tabular' if /\.lengthdist$/;
25 24
26 my $file = $_; 25 my $file = $_;
27 26
28 s/_/-/g; 27 s/_/-/g;