note
Athanasius
<p>Hello [Perl3r], and welcome to the Monastery!</p>
<p><strike>You are opening the output file <tt>$ofile_name</tt> each time through the outer <tt>while</tt> loop. This truncates the file each time before writing to it! Move the statement <tt>open(OFILE, ...) ...</tt> to before the first <tt>while</tt> loop, so that the file is opened only once.</strike></p>
<p><b>Update 1:</b> Sorry, I didn’t see that the name of the output file is changing on each pass of the outer loop. <tt>:-(</tt></p>
<p>It is also good practice to begin your scripts with</p>
<code>
use strict;
</code>
<p>and to declare lexical variables using <tt>my</tt>.</p>
<p>Hope that helps,</p>
<p><b>Update 2:</b> I created two files:</p>
<p>(1) “data.csv”</p>
<code>
here,fred,42,43,44,45
there,wilma,2,5,7,9
</code>
<p>(2) “rtr-template.txt”</p>
<code>
this is the ##location## to be in!
my name is ##rtrname##.
the frame is '##frame-DLCI##'.
</code>
<p>Then I invoked your original script as:</p>
<code>
perl test_script.pl data.csv
</code>
<p>And the result was two output files:</p>
<p>(a) “fred.txt“</p>
<code>
this is the here to be in!
my name is fred.
the frame is '44'.
</code>
<p>(b) “wilma.txt”</p>
<code>
this is the there to be in!
my name is wilma.
the frame is '7'.
</code>
<p>— which is exactly as expected. So, I cannot reproduce the problem you are seeing. Are you sure you are running the code as described?</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-968231">
<p>Athanasius <font color=#008000><°(((><</font> <i>contra mundum</i></p>
</div></div>
996981
996981