在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在许多其他情况下也很方便，所以我首先提到。

在Perl中,如何检查从哪个模块导入一个给定的功能？的更多相关文章

  1. ios – 像偷看和流行一样手动振动iPhone 6S？

    如何手动触发像使用peek&pop或应用程序快捷方式时发生的单击式振动？

  2. ios – Peek和Pop不是一个选择

    我正在尝试将Peek和Pop应用到应用程序中.只有一个问题–我目前的segue设置没有选项：我做错了什么,为什么我没有这个选择？解决方法你是如何建立自己的segue的？这个文档记录很少,但如果您使用手动Segue而不是ActionSegue,则从Storyboard设置3DTouchsegue似乎不可用.为了说明,这里是一个没有3DTouchsegue的手动瞄准：这是一个3DTouchsegue的动作版本：

  3. Windows aero peek API

    我正在尝试使用API进行航空偷看.经过大量的挖掘和搜索,我偶然发现了这段代码：但我不能让它工作..我不知道参数是什么..我尝试了一些API拦截工具,但没有成功.如何才能发现如何正确调用此API？

  4. takeWhile,dropWhile laziness java9

    在scala中,这些方法工作正常,但在java9中,dropWhile的工作方式与我想的不同.以下是takeWhile的示例输出很好：a,b,c,de,[a,c]它不会在“de”之后处理元素,因此它按预期工作但是DropWhile以我期望的不同方式工作：输出是：a,f,g,h,[de,h]因此它不会在“de”元素之后停止,它正在处理整个集合.为什么要处理整个系列？

  5. c – 如何正确使用cin.peek()

    该函数应该读取一个分数并将其放在一个数组中.如果用户输入“0”,则该功能应该退出.我试图使用cin.peek()函数执行此操作,但执行总是进入if语句,并且不允许用户退出.我应该如何正确编码呢谢谢！

  6. UISableView单元上的ios – Peek和Pop在UISearchController中失败

    Peek和Pop正在与UISearchController合作.但是,当您开始使用updateSearchResults搜索表时,Peek和Pop停止工作.我扩展了苹果的TableSearchwithUISearchControllerdemo,以支持Peek和Pop为例：问题是当我开始搜索表格时,Peek和Pop不再工作了.它只是选择突出显示：我做的更新是MainTableViewControl

  7. 在Perl中,如何检查从哪个模块导入一个给定的功能？

    我有一个调用函数的代码。我需要它来修改这个功能。解决方法Devel::Peek模块非常方便地获取有关变量的各种信息。您可以使用它的一个事情是转储对子例程的引用，并获取其来自的glob的名称：GVGV::GV部分在这里是重要的一点。一个替代解决方案是Sub::Identify，它真的只给你提供给你的代码引用的名字。然而，知道Devel::Peek在许多其他情况下也很方便，所以我首先提到。

  8. perl – 哈希键编码：为什么我会在这里与Devel :: Peek ::转储两个不同的结果？

    输出：解决方法这两个标量都包含完全相同的字符串.唯一的区别只在于如何在内部存储字符串.我的猜测是,密钥被规范化,以便在尝试在哈希中找到密钥时使比较更容易.

  9. perl：为什么Devel :: Refcount :: refcount和Devel :: Peek :: SvREFCNT不同意？

    这里有一个来自perldocDevel的修改示例：Refcount：其中打印出来：注意最后的2/1差异…

随机推荐

  1. 数组 – Perl中有什么神奇的数组？

    在Perldocumentationforreverse中,我发现：“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列？解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式？

    什么是“最好的”使用方式“isa()”可靠？解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码：我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖？

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid：由于waitpid为负数,因此可能会被覆盖.grep怎么样？这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖：chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素？

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素？解决方法在Perl5.10中：其他方式：或：或者怎么样？

  5. 使用Perl如何获取文件大小(以兆字节为单位)？

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意：我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数？

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如：File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’：raw’));将帮助,但是SAD.我的问题：>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确？>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确？总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格？

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出：你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格？如果觉得DEVMAX网站内容还不错，欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover？

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新：PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类？

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么？

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示：而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗？我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激！

返回
顶部