view flexbar.pl @ 13:346a2b0979ea

Adjusted tool definition and wrapper to Flexbar 2.31 release.
author jtilman
date Thu, 17 Jan 2013 18:26:14 +0100
parents 4cbf6c6d2f2b
children 952389252467
line wrap: on
line source

#!/usr/bin/env perl

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

use warnings;
use strict;

my ($outFile, $id, $folder, $format) = @ARGV[($#ARGV - 3) .. $#ARGV];

my $call = join " ", @ARGV[0..($#ARGV - 4)];

system $call .' --target FlexbarTargetFile > '. $outFile and exit 1;


foreach(<FlexbarTargetFile*>){
	
	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;
}