実行中のPerlセッション内でPerlスクリプトをコンパイルするにはどうすればよいですか？

Question

私はユーザー入力を受け取り、後で実行される別のスクリプトを作成するPerlスクリプトを持っています。私は現在、これらのスクリプトのテストを行っており、実行したいテストの1つは、生成されたスクリプトが正常にコンパイルされているかどうかを確認することです（例：perl -c <script>）。別のPerlプロセスを起動する必要はありませんか？私は答えを探してみましたが、検索はPerlスクリプトのコンパイルに関する情報を実行可能プログラムに変換するだけです。

Answer 1

eval機能を使用、動的に生成されたコードを実行するには：あなただけの構文をコンパイルするか確認したい場合は、あなたが同じPerlのセッション内でそれを行うことができなくなりますただし

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

__DATA__ 

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

を。

機能syntax_okライブラリTest::Strictperl -cを外部のPerlインタプリタで実行して構文チェックを実行するので、内部的な方法はないと仮定します。

のみ動作し、あなたの周りのために働くことがあり、次のようになります。

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

このケースでは、しかし、コードの最初の行ので、$@を使用してコンパイルエラー（複数可）をチェックすることができるようになりますreturn;の場合、実行されません。

---

注：参考になっチャットやコードの修正のため、ユーザーmobに感謝します。

Answer 2

スクリプトのコンパイルには多くの副作用があります。これにより、サブシステムが定義されます。モジュールが実行されます。何かがコンパイルされているかどうかをテストしたいだけなら、はを別のインタプリタにします。これは、1つのスクリプトをテストしても後のテストで誤検出や偽陰性が発生しないことを確認する唯一の方法です。

Answer 3

この作品のようなものはありませんか？

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

Answer 4

Test::Compileモジュール、特にpl_file_ok()関数を参照してください。