小编Cho*_*lax的帖子

我最近开始使用 perl（本周）。客户端将向服务器请求文件，服务器必须使用请求的数据创建文件。

所以我一直在尝试创建一个文件，但它拒绝了权限。

现在：这是代码的一部分。我从网上拿的。

  $filename = 'report.txt';
  open($fh, '>', $filename) or $message="Could not open file '$filename' $!";
  print $fh "My first report generated by perl\n";
  close $fh;

在我可以完成这项工作后，我将继续处理我必须编写的数据。

我正在使用带有“www-data”用户的 lighttpd。我已经花了几个小时试图解决它......此外，我正在使用 $message ，因为我不知道如何使用“死”。当我使用“死”时，它会显示“500 - 内部服务器错误”而没有其他内容。

我在 Ubuntu 14.04 中工作