GoFuckYourself.com - Adult Webmaster Forum - View Single Post

NetRodent · 08-23-2002, 04:17 PM

Here's one way to do it, although it is much more resource intensive to do it this way as opposed to simply appending the listing at the end:

$newdata = 'whatever';

local $/ = undef;
open(IN, "<$file");
$olddata = &ltIN>
close IN;

open(OUT, ">$file");
print $newdata."\n"
print $olddate;
close OUT;

08-23-2002, 04:17 PM
NetRodent Confirmed User Join Date: Jan 2002 Location: In the walls of your house. Posts: 3,985	Here's one way to do it, although it is much more resource intensive to do it this way as opposed to simply appending the listing at the end: $newdata = 'whatever'; local $/ = undef; open(IN, "<$file"); $olddata = &ltIN> close IN; open(OUT, ">$file"); print $newdata."\n" print $olddate; close OUT;