Mercurial > repos > devteam > emboss_5
annotate emboss_cpgplot_wrapper.pl @ 15:dc492eb6a4fc 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:50:36 -0500 |
parents | d49956b87f7e |
children | dba489bfcd62 |
rev | line source |
---|---|
10
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
1 #! /usr/bin/perl -w |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
2 use strict; |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
3 use File::Copy; |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
4 |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
5 my $cmd_string = join (" ",@ARGV); |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
6 my $results = `$cmd_string`; |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
7 my @files = split("\n",$results); |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
8 my $fileNameOut = $ARGV[14]; |
d49956b87f7e
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
iuc
parents:
diff
changeset
|
9 move($fileNameOut.".1.png",$fileNameOut); |