view tools/emboss_5/emboss_cpgplot_wrapper.pl @ 0:9071e359b9a3

Uploaded
author xuebing
date Fri, 09 Mar 2012 19:37:19 -0500
parents
children
line wrap: on
line source

#! /usr/bin/perl -w
use strict;
use File::Copy;

my $cmd_string = join (" ",@ARGV);
my $results = `$cmd_string`;
my @files = split("\n",$results);
my $fileNameOut = $ARGV[14];
move($fileNameOut.".1.png",$fileNameOut);