2
|
1 #! /usr/bin/perl -w
|
|
2 use strict;
|
|
3 use File::Copy;
|
|
4
|
|
5 my $png_outfile = pop(@ARGV);
|
|
6 my $csv_outfile = pop(@ARGV);
|
|
7
|
|
8 my $csv_cmd = join(" ", (@ARGV, "-noplot -outfile $csv_outfile"));
|
|
9 my $png_cmd = join(" ", (@ARGV, "-plot -graph png -goutfile $png_outfile"));
|
|
10
|
|
11 my $csv_results = `$csv_cmd`;
|
|
12 my $png_results = `$png_cmd`;
|
|
13 my @files = split("\n", $png_results);
|
|
14 my ($drive, $outputDir, $file) = File::Spec->splitpath( $png_outfile );
|
|
15
|
|
16 foreach my $thisLine (@files)
|
|
17 {
|
|
18 if ($thisLine =~ /Created /)
|
|
19 {
|
|
20 $thisLine =~ /[\w|\.]+$/;
|
|
21 $thisLine = $&;
|
|
22 #print "outfile: $thisLine\n";
|
|
23 #there is only one file to move, so we can quit after finding it
|
|
24 move($drive.$outputDir.$thisLine, $png_outfile);
|
|
25 exit(1);
|
|
26 }
|
|
27 else
|
|
28 {
|
|
29 print $thisLine, "\n";
|
|
30 }
|
|
31 }
|