perl - 在Perl中，如何检查给定功能从哪个模块导入？

我有一个调用该函数的代码。但我不知道此功能所属的模块。我需要它来修改此功能。

我该如何检查？

最佳答案

Devel::Peek 模块非常方便地获取有关变量的各种信息。您可以使用它做的一件事是转储对子例程的引用并获取其来源的glob的名称:

$  perl -MDevel::Peek -MList::Util=first -e'Dump(\&first)'
SV = IV(0x1094e20) at 0x1094e28
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x11183b0
  SV = PVCV(0x10ff1f0) at 0x11183b0
    REFCNT = 3
    FLAGS = (POK,pPOK)
    PROTOTYPE = "&@"
    COMP_STASH = 0x0
    XSUB = 0x7f7ecbdc61b0
    XSUBANY = 0
    GVGV::GV = 0x11183c8        "List::Util" :: "first"
    FILE = "ListUtil.c"
    DEPTH = 0
    FLAGS = 0x800
    OUTSIDE_SEQ = 0
    PADLIST = 0x0
    OUTSIDE = 0x0 (null)

其中的GVGV::GV部分很重要。

替代解决方案是Sub::Identify，它实际上只为您提供的名称提供了代码引用。但是，了解Devel::Peek在许多其他情况下也很方便，因此我首先提到了这一点。