Hi experts, I came up with the following way to change a line in a file. The file size is always <5,000 bytes. I do get an error message as follows:

readline() on closed filehandle T at blah. See comment below for line.
+    
print() on closed filehandle T at blah. See comment below for line.
[download]

Need I say, it looks right to me... I've looked at many examples. The subroutine originally just wrote the file. I am testing a way to change a line that starts with 'JOB=' to "RMT=filename. Thanks for your help and warm regards.

sub t_write {
    my($file, $aOrder) = @_;
    my($trace) = $aOrder->{trace_file_data};
    my $counter =  0;

    if (!defined($trace) || length($trace) == 0) {
        print "No trace file.\n";
        return;
    }
    
    open(F, "> $file\0") or die "Can't create trace-file $file ($!)\n"
+;
    print F $trace;
    close(F);
    
    # new start testing >>>>>>
    open (T, "+<$trace");
    my @array = <T>;     #this has the readline error
    foreach my $line (@array) {
        if ($line =~ /^JOB=/) {
            $array[$counter] = "RMT=$file\n";
        }
        $counter++;
    }
    print T @array;   #this has the print() error
    close(T);
    # end testing <<<<<
    
    #make a comment that this was done
    print "Trace file: $file\n";
}
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.