Come posso compilare uno script Perl all'interno di una sessione Perl in esecuzione?

Question

Ho uno script Perl che richiede l'input dell'utente e crea un altro script che verrà eseguito in un secondo momento. Attualmente sto esaminando e scrivendo test per questi script e uno dei test che vorrei eseguire è verificare se lo script generato viene compilato correttamente (ad esempio perl -c <script>.) Esiste un modo per consentire a Perl di eseguire una compilazione sul script generato senza dover generare un altro processo Perl? Ho provato a cercare le risposte, ma le ricerche mostrano semplicemente informazioni sulla compilazione degli script Perl in programmi eseguibili.

Answer 1

per eseguire il codice generato dinamicamente, utilizzare la funzione eval:

my $script = join /\n/, <main::DATA>; 
eval($script); # 3 

__DATA__ 

my $a = 1; 
my $b = 2; 
print $a+$b, "\n"; 

Tuttavia, se si desidera compilare solo o controllare la sintassi, quindi non sarà in grado di farlo entro stessa sessione di Perl.

Funzione syntax_ok dalla libreria Test::Strict eseguire un controllo di sintassi eseguendo perl -c con un interprete perl esterno, quindi presumo che non vi è alcun modo interno.

Solo work-around che può funzionare per voi sarebbe:

my $script = join /\n/, <main::DATA>; 
eval('return;' . $script); 
warn $@ if $@; # syntax error at (eval 1) line 3, near "1 
       # my " 

__DATA__ 

my $a = 1 
my $b = 2; 
print $a+$b, "\n"; 

In questo caso, si sarà in grado di verificare la presenza di errori di compilazione (s) utilizzando $@, però, perché la prima riga del codice è return;, non verrà eseguito.

---

Nota: I ringraziamenti per l'utente mob per la chat disponibile e la correzione del codice.

Answer 2

La compilazione di uno script ha molti effetti collaterali. Ne risultano sottoserie in corso di definizione. Risulta l'esecuzione di moduli. ecc. Se vuoi semplicemente verificare se qualcosa si compila, tu vuoi un interprete separato. È l'unico modo per essere sicuri che uno dei test su uno script non causi falsi positivi o falsi negativi.

Answer 3

Non ti piacerebbe qualcosa del genere?

open(FILE,"perl -c generated_script.pl 2>&1 |"); 
@output=<FILE>; 
if(join('',@output)=~/syntax OK/) 
{ 
    printf("No Problem\n"); 
} 
close(FILE); 

Answer 4

Vedi Test::Compile modulo, in particolare pl_file_ok() funzione.