将perl脚本中的html内容写入特定目录中的文件

我在perl/cgi脚本中有以下代码：

$commonContent = <<HTML;
 <font color="#CC0000"><strong>$errStr</strong></font>
 <h2 class="first">Request ID: $recId<br />(Requested by: $userInfo->[1], $userInfo->[3], $userInfo->[5])</h2>
 <h3 style="margin-bottom:16px">Website: $website</h3>
 <p><strong>Request Type: $request</strong></p>
 <p>Request Description:<br />$description</p>
 <p>Priority/Required Turnaround Time: $priority</p>
 <p>Pre-deployment review: $review</p>
 <p><strong><i>Estimated completion date for this request: $completionDate</i></strong></p>
HTML

$commonContent=[3]，$userInfo->[5]）
网站：$Website
请求类型：$Request

请求说明：
$Description

优先级/所需周转时间：$Priority

部署前审查：审查

此请求的预计完成日期：$completionDate

HTML

我想把HTML的内容写入目录中的一个文件，这样我就可以把它作为记录保存。 有人知道怎么做吗？关于这个问题，我已经阅读了perl cookbook second edition和pro perl，但对我来说，这都是很肤浅的

您需要打开一个文件句柄，并将变量打印到该文件句柄

open(my $fh, '>', "output.html") or die $!;

---

应该是“print FILE$commonContent”，否则它将打印到stdout。更好的方法是，有一个upvote:-）注意，对于原始海报，一个常见的Perl错误是试图在打印行中的文件后加逗号。但是dmah的方式，只有一个空格，是完全正确的。请不要使用裸字文件句柄。把初学者当作“正常人”是不好的做法；人们最好从一开始就学会使用本地词汇表。+1-使用本地文件句柄（open的三参数形式），并检查错误。

my $myfile = '/path/to/myfile.html';
open(FILE, "> $myfile") || die "Couldn't open $myfile: $!\n";
print FILE $commonContent;
close(FILE);