Mercurial > repos > devteam > emboss_5
annotate emboss_cpgplot_wrapper.pl @ 12:832c20329690 draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/emboss_5 commit ca9a6baaede679d619675e48d665748a91950115
author | iuc |
---|---|
date | Mon, 23 Apr 2018 13:05:09 -0400 |
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); |