Good day to you all wise monks. I come to you with a question.
I really, really cannot understand why this code doesn't work the way I expect it to. I have ideas as to why it doesn't, but I just can't seem to correct it.

#!/usr/bin/perl

use strict;
use warnings;

sub mysub{
#Do some clean up before exit.
};

my $fh;
unless (open ( $fh, '>' , "file.txt")) {
mysub();
print "Cannot open file.txt for writing.\n"; 
exit 0 ; 
};


my $condition = 0;
do { 
    my $text = "Text to be written over file.txt.\n";
    print { $fh } "$text";
    #... other stuff goes on, eventually changing $condition to 1
} until ($condition);

close ($fh);
mysub();

exit 1;

[download]

This, rather than produce a file named "file.txt" with "Text to be written over file.txt." in it, produces a file named "file.txt" with as many lines of said text as the do...until loop ran.

In a nutshell, it would seem that print is appending rather than clobbering.

I would imagine that there is some issue related to scope of the filehandler variable related to the do...until loop, but I have tried multiple fixes, and none seem to give me the expected behaviour.

Your help will be much appreciated.

Best regards, Mark.

In reply to Writing to file with filehandler in variable, scope issue, clobber becomes append by Marcool

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.