大佬教程收集整理的这篇文章主要介绍了如何创建一个Perl类?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我最大的问题是如果一个模块中不应该有全局变量,你如何在一个模块中的sub()中使用变量?像Java自己> foo = 10;
基本上只是给我一个用Java或C#编写的类,甚至是C,并在Perl中写同一个.另外还要显示如何正确地执行私有,受保护和公共类变量.继承和接口对我有帮助.
package SampLeobject; use Strict; use warnings; sub new { my ($class,%args) = @_; return bless { %args },$class; } sub sample_method { my ($self) = @_; print $self->{sample_data}; }
和用法:
@H_219_10@my $obj = SampLeobject->new( sample_data => 'Hello world',more_data => 'blah blah blah' ); $obj->sample_method();或者,可以添加访问器/ mutator方法(参见Class :: Accessor,Class :: Accessor :: Chained等,以便轻松设置这些) – 这些使得更容易验证数据和添加封装(它不是在Perl,您必须确保您的代码不会绕过适当的访问器/ mutator,并直接访问祝福的hashref中的数据).
以上是大佬教程为你收集整理的如何创建一个Perl类?全部内容,希望文章能够帮你解决如何创建一个Perl类?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。