펄 소스 코드에서`use`는 어디에 정의되어 있습니까?

Question

소스와 컴파일 단계에서 정확하게 어디에서 use이 정의되어 있는지 알 수 있습니까? 나는 그것을 보지 못했고 CORE::GLOBAL::use을 찾고 있었고 그것을 찾고자하는 방법을 확신하지 못했습니다. 꽤 모호한 용어입니다.

Answer 1

use 구문 해석기 (perly.y)에 정의되어있다. 발췌 :

이

| USE startsub 
     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } 
    BAREWORD BAREWORD optlistexpr ';' 
     { 
      SvREFCNT_inc_simple_void(PL_compcv); 
      utilize($1, $2, $4, $5, $6); 
      parser->parsed_sub = 1; 
      $$ = NULL; 
     } 

yacc를 모르고, 나는 그것이 무엇을하고 있는지 모른다.

utilize()의 기능은 op.c에서 Perl_utilize()입니다. 이 코드는 require을 포함하는 BEGIN 블록을 만듭니다. veop 및 imop 변수 요청 요소 버전을 확인하거나 가져 오는 연산 코드를 보유 할 수있다 :

/* Fake up the BEGIN {}, which does its thing immediately. */ 
newATTRSUB(floor, 
    newSVOP(OP_CONST, 0, newSVpvs_share("BEGIN")), 
    NULL, 
    NULL, 
    op_append_elem(OP_LINESEQ, 
     op_append_elem(OP_LINESEQ, 
      newSTATEOP(0, NULL, newUNOP(OP_REQUIRE, 0, idop)), 
      newSTATEOP(0, NULL, veop)), 
     newSTATEOP(0, NULL, imop))); 

링크를 Github의 거울에 v5.26.0 소스에 :

• Perl_utilize() in op.c
• USE statement in perly.y

Answer 2

CORE입니다.

perl -w -E 'CORE::use Data::Dumper; print Dumper("a")'