如何在Perl中执行内省？

发布时间：2020-12-15 23:27:54 所属栏目：大数据来源：网络整理

导读：在Perl OOP中,如何转储此类及其父类中的所有方法/字段. my ($self) = @_; 我看到了很多上面的构造函数.然后,@_是什么？我有Java / OOP背景.如果您的解释可以遵循Java域,那么我将更容易理解. 解决方法什么是@_？见 perldoc -v @_ perldoc perlobj mjd has a

在Perl OOP中,如何转储此类及其父类中的所有方法/字段.

my ($self) = @_;

我看到了很多上面的构造函数.然后,@_是什么？

我有Java / OOP背景.如果您的解释可以遵循Java域,那么我将更容易理解.

解决方法

>什么是@_？见 perldoc -v @_
> perldoc perlobj

mjd has an interesting article on introspection in Perl.

此外,How do I list available methods on a given object or package in Perl?回答了部分问题.

我对该问题的首选答案使用Class::Inspector：

#!/usr/bin/env perl

use strict; use warnings;

use Class::Inspector;
use HTML::TokeParser::Simple;

my $methods = Class::Inspector->methods(
    'HTML::TokeParser::Simple','full','public'
);

print "Methods:n";
print "$_n" for @$methods;

print "Superclassesn";
use Class::ISA;
print join(",",Class::ISA::super_path('HTML::TokeParser::Simple')),"n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!