Welcome to WebmasterWorld Guest from 22.214.171.124 , register , free tools , login , search , subscribe , help , library , announcements , recent posts , open posts Subscribe to WebmasterWorld
I need to ADD to the BEGINNING of a data file fredfletcher msg:4417239 5:30 am on Feb 14, 2012 (gmt 0) Hello, I have done my best in trying to find a way to be able to do the following using a Perl script (.pl) I have a text file (data.txt) that I would like to add some info at the beginning of the file (prepend I believe, not append). From what I have gathered, "append" adds to the "end" of a file. I need to add to the "beginning" of a file after a form submission. Any help would be appreciated, thank you. Here is what I have so far:
use CGI ':standard'; open WRITE, "<data.txt"; # 'name' is what is taken from my submission form $name = param('name'); open(WRITE, ">>./data.txt"); print WRITE "$name\n"; close WRITE; print "Content-type: text/html\n\n"; print "Success!";
phranque msg:4417288 9:03 am on Feb 14, 2012 (gmt 0)
there is no native prepend operator/capability/command in perl. but as always with perl - TIMTOWTDI. depending on your requirements for fault tolerance, this simple method may suffice: - write the form data to a temporary file - copy your text file to the temp file - rename the temp file to your original text file name, replacing the original contents with the prepended version rocknbil msg:4417471 4:15 pm on Feb 14, 2012 (gmt 0)
If the file is not huge, another way is to open the file, store all lines in a scalar $tmp $tmp = param('name') . "\n" . $tmp; overwrite file. I generally store the original $tmp in a backup first to be (a little bit) safer about it. fredfletcher msg:4417564 6:59 pm on Feb 14, 2012 (gmt 0)
Any chance of getting a rewrite (Rocknbil) ?