免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2771 | 回复: 4

怎样查看一个对象的所有方法 [复制链接]

论坛徽章:
0
发表于 2015-05-08 06:20 |显示全部楼层
如题,比如$obj是一个对象,如何查看它的左右方法呢?谢谢

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2015-05-08 09:20 |显示全部楼层
Perl 的面向对象被简化到只有 bless ref 和方法调用的语法,你说这功能是没有内置的需要用模块或者自己写个函数。OO的框架 Moose 应该很容易但是应该只支持框架下的类。

Perl 的OO比较繁琐所以平时都是用 string array hash 这些基本类型解决问题,对象一般都是比较“重量级”的有良好的文档支持,所以平时没这需求。

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2015-05-08 10:40 |显示全部楼层
  1. use mro;

  2. sub get_all_methods {
  3.     my $class = ref $_[0] || $_[0]; # 可以接受类名 或 对象
  4.     my(@methods, %defined);
  5.     for my $cls (@{mro::get_linear_isa($class)}, 'UNIVERSAL') {
  6.         no strict 'refs';
  7.         for (keys %{"$cls\::"}) {
  8.             if (defined *{"$cls\::$_"}{CODE} and not $defined{$_}) {
  9.                 $defined{$_} = 1;
  10.                 push @methods, "$cls\::$_";
  11.             }
  12.         }
  13.     }
  14.     @methods;
  15. }
复制代码

求职 : 软件工程师
论坛徽章:
3
程序设计版块每日发帖之星
日期:2015-10-07 06:20:00程序设计版块每日发帖之星
日期:2015-12-13 06:20:00程序设计版块每日发帖之星
日期:2016-05-05 06:20:00
发表于 2015-05-11 09:00 |显示全部楼层
学习 Perl 6 吧。

获取一个 $object 所有的方法:
  1. $object.^methods;
复制代码

论坛徽章:
0
发表于 2015-05-11 11:23 |显示全部楼层
回复 1# 塞图宝


不懂这个查看一个对象的所有方法都是用来干什么的。。
感谢解答。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP