comparison flexbar.pl @ 22:12e4b3bb38c6

Adjusted tool definition to Flexbar release 2.4

21:d62311a7bac6

#!/usr/bin/env perl

# Flexbar wrapper for Galaxy tool definition, version 2.34
# 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 $fileType eq 'lengthdist';
	
	my $file = $_;
	
	s/_//g;
	
	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;
	
	rename $file, $name;
	rename $name, $folder;

22:12e4b3bb38c6

#!/usr/bin/env perl

# Flexbar wrapper for Galaxy tool definition, version 2.4
# 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;
	
	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;
	
	rename $file, $name;
	rename $name, $folder;