I'm having an issue that I can't figure out. I wrote a script to parse out several text files and print 3D plots. It works perfectly if I only print one plot. However, when I step up the number of files up to two, it seems to print the same plot twice. When I step up the number of files to 5 or 6. It prints a few correctly, and a few incorrectly. I'm thinking that maybe there is some error in how Perl is opening GNUPlot. Please help!

Below is a my pseudo-code. 

$Num_of_Files = 2;    #Number of Files being read
$Label[0] = "ABC";
$Label[1] = "DEF";

# Files to be read
$file[0] = '/u/ABC.asc';
$file[1] = '/u/DEF.asc';


## Read Files and Create Data for Plotting ##
for ($i=0; $i<$Num_of_Files; $i++) {  # Jump through each file  
open(Read, $file[$i]);
@Read = <Read>;
@Write3D = ""; 

foreach $part (@Read) {     # Visit each text line in turn
    if ($part =~ /DATA/) {    # Lines with Information to include 
        $part =~ s/ /:/g; 
        @Row = split(/:+/, $part);
        push(@Write3D, "$Row[1]\t");
        push(@Write3D, "$Row[2]\t");
        push(@Write3D, "$Row[3]\n");
    }
}

writeFile_ref ("Data.txt", \@Write3D);  # Creates data file
close(Read);

## Opens GNUPlot and Creates Plots ##
open(G, "|/usr/local/bin/gnuplot") or die "/usr/local/bin/gnuplot"; 
print G <<ENDOFHERE
set term x11
set title '$Label[$i]'    # Title for Graphs
set nokey
set output '$Label[$i] - PowerUp Seq 3D.png'
splot 'Data.txt' using 1:2:3 with lines lw 2  ## 3D Plot ##
unset logscale;

ENDOFHERE
}

[download]

Thanks in Advance!

In reply to Printing Multiple Plots by BoulderBuff64

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.