Mercurial > repos > jtilman > flexbar

comparison flexbar.pl @ 29:9709dbd13ee3 draft

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