Mercurial > repos > ktnyt > gembassy
diff glang-galaxy-conf/kbws/gembassy_calcandplot_wrapper.pl @ 2:8947fca5f715 draft default tip
Uploaded
author | ktnyt |
---|---|
date | Fri, 26 Jun 2015 05:21:44 -0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/glang-galaxy-conf/kbws/gembassy_calcandplot_wrapper.pl Fri Jun 26 05:21:44 2015 -0400 @@ -0,0 +1,31 @@ +#! /usr/bin/perl -w +use strict; +use File::Copy; + +my $png_outfile = pop(@ARGV); +my $csv_outfile = pop(@ARGV); + +my $csv_cmd = join(" ", (@ARGV, "-noplot -outfile $csv_outfile")); +my $png_cmd = join(" ", (@ARGV, "-plot -graph png -goutfile $png_outfile")); + +my $csv_results = `$csv_cmd`; +my $png_results = `$png_cmd`; +my @files = split("\n", $png_results); +my ($drive, $outputDir, $file) = File::Spec->splitpath( $png_outfile ); + +foreach my $thisLine (@files) + { + if ($thisLine =~ /Created /) + { + $thisLine =~ /[\w|\.]+$/; + $thisLine = $&; + #print "outfile: $thisLine\n"; + #there is only one file to move, so we can quit after finding it + move($drive.$outputDir.$thisLine, $png_outfile); + exit(1); + } + else + { + print $thisLine, "\n"; + } + }