perl 사용자가 제공 한 하위. 항상 평가판이 아닌 텍스트를 반환합니다.

Question

나는 perl newb입니다.

불행하게도, eval 내가

을 기대하고있어 방법을 작동하지 않습니다 내 모의 예 :

my $filter = 'return false;'; 
my $filterFunc = sub{ eval{ $filter } } ; 
while (my $entry = readNextEntry()){ 
    print "Eval:".$filterFunc->($entry)."\n"; 
} 

내가 이것을 실행하면, 나는 (이 아니라 모든 패스에서 반환되는 문자 "return false;"를 얻을 수 함수가 평가되고 있음). 몇 가지 변형을 시도했지만 마법의 조합을 타격하지는 않습니다. 보안 문제에

주의 사항 : I는 사용자 오전, 나는이 코드가 수행에 전달 된 것에 대한 보안 문제가없는

.

내 의도는 여러 매개 변수를 가져 와서 매개 변수를 기반으로 항목을 필터링하는 것입니다. 어떤 매개 변수가 유용할지 모르므로 일부 텍스트를 전달할 수 있다고 생각했습니다. eval 익명 함수로 텍스트가 전달되었습니다. , 각 레코드 (필터 함수)에 대해 함수를 실행하십시오. 필자는 사용자이므로 전달 된 코드에 대한 보안 문제는 없습니다.

Answer 1

당신은 문자열 eval하지 블록 eval을 할 필요가있다.

my $filterFunc = sub{ eval{ $filter } } ; 

eval BLOCK는 try/catch기구 같다. 임의 코드를 평가하지 않습니다. 블록 안의 코드에서 오류를 포착합니다. 원하는 것은 문자열 eval입니다.

$ perl -E 'my $filter = sub { my $f = shift; eval $ARGV[0]; }; for (1 .. 10) { say $_ if $filter->($_) }' '$f % 2' 
1 
3 
5 
7 
9 

그러나, 펄에는 false 없다 :

my $filterFunc = sub{ eval $filter }; 

는 여기에 내가 당신이하려는 생각의 구현 예입니다. 그건 키워드가 아니야. sub false 어딘가에 있지 않으면 use strict이 있는지 여부에 따라 구문 오류가 발생할 수 있습니다.

read up on eval이어야합니다. 당신이 원하는 모든 것을 거짓 대신 0를 사용을 반환하는 $filterFunc 경우

---

. 리터럴 문자열 "return false;"은 Perl에서 인 입니다.