Pourquoi ai-je cette erreur de syntaxe dans mon programme de génération de code?

Question

Je veux générer quelques lignes de code Perl en utilisant le traitement des fichiers en Perl, par exemple:

open(FILEHANDLE, ">ex.pl") or die "cannot open file for reading: $!"; 
print FILEHANDLE "use LWP::UserAgent;" 
.... 
.... some code is here 
.... 
print FILEHANDLE "my \$ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');" 

Mais quand je compile le code du générateur (non généré) Je reçois cette erreur:

syntax error at F:\test\sys.pl line 14, near "print" 
Execution of F:\test\sys.pl aborted due to compilation errors. 

Que vais-je faire?

Answer 1

Vous avez raté la fermeture ' " ' (guillemets doubles) à la fin de la chaîne de la dernière impression (avant le point-virgule).

devrait être:

print FILEHANDLE "my \$ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5')"; 

... Firefox/1.5.0.5')"; # To show end of that line without scrolling 

En outre, deux notes mineures:

• S'il vous plaît envisager d'utiliser 3-argument form de open(), pas 2 argument; ainsi que les handles de fichiers lexicaux:

  ouvert (my $ fh, '>', "out.txt") ou de mourir "Erreur d'ouverture pour l'écriture: $!"; imprimer $ fh "stuff \ n";

• Vous n'avez pas de close() à la fin du fichier - je suppose que vous avez donné un code incomplet.

Answer 2

vous manque un point-virgule à la fin de cette ligne:

print FILEHANDLE "use LWP::UserAgent;" 

Answer 3

Voici comment vous écririez en Perl moderne:

use autodie qw(:all); 
{ 
    open my $handle, '>', 'ex.pl'; 
    print {$handle} <<'PERL_SOURCE'; 
use LWP::UserAgent; 
… 
# ↓ no variable quoting necessary thanks to here-document 
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5'); 
… 
PERL_SOURCE 
} 

que l'éther a laissé entendre Dans les commentaires en haut, il n'est presque jamais nécessaire d'écrire du code généré dynamiquement dans un fichier. eval et Moose::Meta::* existent pour une raison.