Of course, there are many other ways you could accomplish the same thing, I just happen to like this because it keeps the amount of variable assignment to a minimum.

Thanks to everyone for their help. It's working now. Here's the core file saving code for your reference. It removes unncessary line returns, etc.



if (defined $query->param('Submit')) {
  open NEWNEWS, "> cgi/news.txt" || die "Cannot open file: $!";
  $result = $query->param('content');
  $result =~ s/\r//g;
  print NEWNEWS $result;
  close(NEWNEWS);
  print '<p>Saved your changes.</p>';
  $query->delete('Submit');
}
[download]



JoeG

I'm not sure what the problem is, but I'll add a couple of ways to interpolate an array without spaces...

print "<textarea>", @text, "</textarea>\n";
# (unless you've redefined $,)
[download]

...or...

{
    local $";
    print "<textarea>@text</textarea>\n";
}
[download]