mirror of
https://github.com/galaxyproject/galaxy.git
synced 2026-09-24 16:30:27 +08:00
10 lines
218 B
Perl
10 lines
218 B
Perl
#! /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[16];
|
|
move($fileNameOut.".1.png",$fileNameOut);
|