Mercurial > repos > devteam > emboss_5
view emboss_multiple_outputfile_wrapper.pl @ 16:33381b9c268c draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 431486be049407b094d495ae4a68bf76d27fa522
author | iuc |
---|---|
date | Mon, 28 Jan 2019 14:49:47 -0500 |
parents | 9b98d3d903c6 |
children |
line wrap: on
line source
#! /usr/bin/perl -w use strict; my $cmd_string = join (" ",@ARGV); my $results = `$cmd_string`; my @files = split("\n",$results); foreach my $thisLine (@files) { if ($thisLine =~ /Created /) { $thisLine =~ /[\w|\.]+$/; $thisLine =$&; print "outfile: $thisLine\n"; } else { print $thisLine,"\n"; } }