écrit le contenu HTML dans un script Perl dans un fichier dans un répertoire spécifique

Question

je le code suivant dans un perl/script 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 

Je veux écrire le contenu du HTML à un fichier dans un répertoire afin que je puisse le garder comme un disque. Est-ce que quelqu'un sait comment faire cela? J'ai lu la deuxième édition de Perl Cookbook et pro perl sur ce problème, mais tout cela me parait perlish.

Answer 1

Regardez perl's open().

Vous souhaiterez ouvrir un Filehandle et imprimer la variable dans ce fichier.

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

Answer 2

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