Jak mogę skompilować skrypt Perl wewnątrz działającej sesji Perl?

Question

Mam skrypt Perl, który pobiera dane użytkownika i tworzy inny skrypt, który będzie uruchamiany w późniejszym terminie. Obecnie przechodzę i piszę testy dla tych skryptów i jednym z testów, które chciałbym wykonać, jest sprawdzenie, czy wygenerowany skrypt poprawnie się kompiluje (np. perl -c <script>.) Czy istnieje sposób, że mogę Perl wykonać kompilację na wygenerowany skrypt bez konieczności tworzenia kolejnego procesu Perla? Próbowałem wyszukiwać odpowiedzi, ale wyszukiwania tylko podnoszą informacje o kompilowaniu skryptów Perla do programów wykonywalnych.

Answer 1

Aby wykonać kod generowany dynamicznie, należy eval funkcję:

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

__DATA__ 

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

Jednak jeśli chcesz tylko skompilować lub sprawdzić składnię, to nie będzie w stanie to zrobić w ciągu jednej sesji Perl.

Funkcja syntax_ok z biblioteki Test::Strict uruchom sprawdzanie składni, uruchamiając perl -c z zewnętrznym interpreerem perla, więc zakładam, że nie ma wewnętrznej drogi.

Tylko obejście, które mogą pracować dla Ciebie byłoby:

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"; 

W tym wypadku będzie można sprawdzić błędu (ów) kompilacji używając $@, jednak ponieważ pierwsza linia kodu to jest return;, nie zostanie wykonany.

---

Uwaga: Dzięki za pomocny użytkownik mob czat i korekty kodu.

Answer 2

Kompilowanie skryptu ma wiele efektów ubocznych. Powoduje to zdefiniowanie podsadzek. Powoduje to uruchomienie modułów. Jeśli chcesz po prostu sprawdzić, czy coś się kompiluje, musisz osobny interpreter. Jest to jedyny sposób, aby upewnić się, że testowanie jednego skryptu nie powoduje późniejszych testów w celu uzyskania fałszywych trafień lub fałszywych negatywów.

Answer 3

Czy coś takiego nie działa dla Ciebie?

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

Answer 4

Zobacz moduł Test::Compile, zwłaszcza pl_file_ok() funkcję.