У меня есть код, который вызывает функцию. Но я не знаю, к какой модулю принадлежит эта функция. Мне нужно изменить эту функцию.
Как я могу проверить его?
У меня есть код, который вызывает функцию. Но я не знаю, к какой модулю принадлежит эта функция. Мне нужно изменить эту функцию.
Как я могу проверить его?
Модуль Devel::Peek
очень удобен для получения всякой информации о переменных. Одна из вещей, которые вы можете сделать с этим, - это дать ссылку на подпрограмму и получить имя глобуса, из которого он пришел:
$ 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 может копаться так, как вы хотите. Например:
main::(-e:1): 0 DB<1> sub foo {} DB<2> x \&foo 0 CODE(0xca6898) -> &main::foo in (eval 5)[/usr/share/perl/5.10/perl5db.pl:638]:2-2
Он делает это с помощью Devel::Peek:
=head2 C<CvGV_name_or_bust> I<coderef>
Calls L<Devel::Peek> to try to find the glob the ref lives in; returns
C<undef> if L<Devel::Peek> can't be loaded, or if C<Devel::Peek::CvGV> can't
find a glob for this ref.
Returns C<< I<package>::I<glob name> >> if the code ref is found in a glob.
=cut
sub CvGV_name_or_bust {
my $in = shift;
return unless ref $in;
$in = \&$in; # Hard reference...
eval { require Devel::Peek; 1 } or return;
my $gv = Devel::Peek::CvGV($in) or return;
*$gv{PACKAGE} . '::' . *$gv{NAME};
} ## end sub CvGV_name_or_bust
Вы можете использовать его с помощью
#! /usr/bin/perl
use warnings;
use strict;
package Foo;
sub bar {}
package main;
BEGIN { *baz = \&Foo::bar }
sub CvGV_name_or_bust { ... }
print CvGV_name_or_bust(\&baz), "\n";
Вывод:
Foo::bar
Обратите внимание, что приведенный выше пример дает Foo:bar
другое имя, но вы получаете как пакет, в котором находится псевдонимы, так и его имя.
Если функция была автоматически импортирована из другого модуля с помощью Exporter
, его можно найти в этом модуле @EXPORT
глобальная переменная:
perl -MEncode -e 'print join "\n", @Encode::EXPORT'
decode
decode_utf8
...
Вы можете предоставить список функций use
. Таким образом, вы всегда будете знать, какой пакет принадлежит функции:
use Encode qw[ encode ]; # encode() imported from the Encode module
use Data::Dumper qw[]; # no functions imported from Data::Dumper
Вы можете передать в Sub::Identify::sub_fullname
ссылку на любую подпрограмму, и она покажет вам модуль, в котором был указан этот суб:
use Sub::Identify qw/sub_fullname/;
sub foo {
print sub_fullname( \&foo ); # main::foo
print sub_fullname( sub{} ); # main::__ANON__
}
foo();
Подробнее см. Sub::Identify