comparison flexbar.pl @ 28:6536146320ef draft

Uploaded

27:db26fb0c6389

#!/usr/bin/env perl

# Flexbar wrapper for Galaxy tool definition, version 2.5
# Author: Johannes Roehr

use warnings;
use strict;

	my $fileType;
	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w*fast\w$/;
	$fileType = 'fasta'    if /\.fasta$/;
	$fileType = 'csfasta'  if /\.csfasta$/;
	$fileType = 'tabular'  if /\.lengthdist$/;
	
	my $file = $_;
	
	s/_/-/g;

28:6536146320ef

#!/usr/bin/env perl

# Flexbar wrapper for Galaxy tool definition, version 2.7
# Author: Johannes Roehr

use warnings;
use strict;

	my $fileType;
	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w*fast\w$/;
	$fileType = 'fasta'    if /\.fasta$/;
	$fileType = 'tabular'  if /\.lengthdist$/;
	
	my $file = $_;
	
	s/_/-/g;