終了perl pmが利用できない場合

Question

概念：ライブラリは私のpublic_htmlフォルダに置かれ、文字列をデコードする目的です。しかし、そのライブラリが存在しない場合は、エラーで停止してください。前でした提案された方法：

eval("require x.pm"); 

if ($@) { 
    print "The library is missing"; 
} 
else{ 

    BEGIN{ 
     eval{"use x"}; 
    } 

    1123131323fsdfsfsdfsfgdfgdfgghfghfghfgheterterter ... 
    no x; 
} 

ライブラリが存在する場合、デコードが正常に動作し、すべてが「互角のドーリー」です。理論上...ファイルが存在しない場合、トップループはエラーを出力するはずです...スクリプトが暗号化された文字列を見て、それが有効なプログラムではないと判断すると、エラー500が発生します。私は、フラグ

$set=0; 
$set=1 if eval("require x.pm"); 

if ($set eq 0){ 
... 
.. 

同じことでそれを試してみましたので、それは "$ @を" だったのか疑問に思っ

。文字列にコードを入れようとしました：

$_="1123131323fsdfsfsdfsfgdfgdfgghfghfghfgheterterter ..." 

これは役に立ちませんでした。だから誰も私が間違っていることにどのような光を投げることができますか？

Answer 1

どのような方法でも終了しないようです。 eval()を使用して、あなたが望むことを行うための安定した方法は、exit()です。 require()が失敗した場合、$okは真の値に設定されません。

my $ok = eval {require 'nofile.pm'; 1}; 

if (! $ok){ 
    print "module not found\n"; 
    exit; 
}