Appending to a file...

 I am currently using a perl script to store form data on a server, it keeps all the data by first opening the file and reading out all the data then printing it all back in, plus the new line at the bottom... (very sad I know...) like this:

      open(BUFFER,"<$MBUKstor") or explode ("Cannot open $MBUKstor at line 25 - $!");
            push @lines, <BUFFER>;
      close(BUFFER);

      open(STORE,">$MBUKstor") or explode ("Cannot open $MBUKstor at line 29 - $!");
            foreach $line (@lines) {
                  print STORE "$line\n";
            }
            print STORE "$FORM{'name'} |:| $FORM{'email'} |:| $FORM{'postcode'} |:| $FORM{'conly'}\n";
      close(STORE);

But I want to just print the new line at the end of the file, what is the code to append to the end of the file???

Regards
JB

JavaBloggsAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
makerpConnect With a Mentor Commented:
use a double >> in the open for appending rather than write and destroy if already there

open(STORE,">>$MBUKstor") or explode ("Cannot open $MBUKstor at line 29 - $!");

print STORE "$line\n";

hope thus helps
 
0
 
JavaBloggsAuthor Commented:
 Cheers for that, I know its not worth 300 pts, but I was in a hurry and left my books at home....

  Thanks again
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.