Mercurial > repos > devteam > emboss_5
view emboss_single_outputfile_wrapper.pl @ 17:ce385837c160 draft
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 4812c313fd8762b11f7fd002436e3a93b4c67f00"
author | iuc |
---|---|
date | Fri, 20 Nov 2020 16:51:11 +0000 |
parents | dba489bfcd62 |
children |
line wrap: on
line source
use strict; use warnings; use File::Copy; my $cmd_string = join (" ",@ARGV); my $results = `$cmd_string`; my @files = split("\n",$results); my $fileNameOut = $ARGV[6]; my ($drive, $outputDir, $file) = File::Spec->splitpath( $fileNameOut ); my $destination = $fileNameOut; foreach my $thisLine (@files) { if ($thisLine =~ /Created /) { $thisLine =~ /[\w|\.]+$/; $thisLine =$&; #print "outfile: $thisLine\n"; #there is only one file to move, so we can quit after finding it move($drive.$outputDir.$thisLine,$fileNameOut); exit(1); } else { print $thisLine,"\n"; } }