Mercurial > repos > devteam > emboss_5
annotate emboss_cpgplot_wrapper.pl @ 10:d49956b87f7e draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit 2bfbb5ae6b801e43355fdc3f964a5111fe3fe3a1
author | iuc |
---|---|
date | Wed, 08 Feb 2017 12:42:22 -0500 |
parents | |
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); |