如何重新定义Perl类方法？
在Perl中，重新定义类方法可以通过以下步骤完成：
- 首先，确定要重新定义的类方法。
- 使用
sub关键字定义一个新的子例程，并将其命名为要重新定义的方法名。 - 在子例程中，编写新的代码逻辑。
- 保存并重新加载Perl脚本，以确保新的子例程生效。
以下是一个简单的示例，演示如何重新定义Perl类方法：
# 假设我们有一个名为"MyClass"的类，其中有一个名为"print_message"的方法
# 我们现在要重新定义这个方法
# 原始的print_message方法
sub MyClass::print_message {
my ($self, $message) = @_;
print "Original message: $message\n";
}
# 重新定义print_message方法
sub MyClass::print_message {
my ($self, $message) = @_;
print "New message: $message\n";
}
# 创建一个MyClass对象
my $obj = MyClass->new();
# 调用print_message方法，将输出"New message: Hello, world!"
$obj->print_message("Hello, world!");在这个示例中，我们首先定义了一个名为"MyClass"的类，其中有一个名为"print_message"的方法。然后，我们重新定义了"print_message"方法，使其输出不同的消息。最后，我们创建了一个"MyClass"对象，并调用了"print_message"方法，以验证新的实现是否生效。
相关·内容
2回答
如何获得父类子程序perl的引用
perl、oop、inheritance、reference
在子类中，我需要引用父类中定义的子例程，并将其传递给执行它们的其他类。因此，我编写了下面的示例模块，用于测试相同的模块。
Parent1.pm
package Parent1;
sub new {
my ($class, $arg_hash) = @_;
my $self = bless $arg_hash, $class;
return $self;
}
sub printHello{
print "Hello\n";
}
sub printNasty{
print "Nasty\n";
}
1;
浏览 1提问于2015-03-26得票数 5
回答已采纳
2回答
如何模拟在Moo角色中定义的方法？
perl、unit-testing、moose、moo
鉴于以下作用：
package MyRole;
use Moo::Role;
sub foo {
return 'blah';
}
以及以下消费阶层：
package MyClass;
use Moo;
with 'MyRole';
around foo = sub {
my ($orig, $self) = @_;
return 'bak' if $self->$orig eq 'baz';
return $self->$orig;
}
我想测试在around修饰符中定义的行为
浏览 3提问于2016-06-23得票数 1
回答已采纳
7回答
Perl:如何动态创建对象？
perl、oop、object、package
我的目标是能够像这样使用$obj：
print $obj->hello() . $obj->{foo};
我想要内联地创建一个对象，也许可以使用这样的方法：
my $obj = (
foo => 1,
hello => sub { return 'world' }
);
但是，当我尝试使用$obj作为对象时，我会发现一个错误，即$obj没有得到祝福。我是否可以使用一些基类(如PHP中的 )来为散列提供祝福，以便将其用作对象？
对于那些熟悉JavaScript的人，我试图做以下工作，但使用Perl：
# JS CODE BELOW
var
浏览 7提问于2010-08-04得票数 14
回答已采纳
5回答
一些Perl书籍建议在调用类方法时使用括号，称这有助于避免解析器猜测代码的意图。但是，我见过的几乎所有Perl代码(包括cpan上的模块)在调用不带参数的方法时很少使用括号。
省略这些括号是正常的，还是应该总是键入它们。
我写了一个小的测试代码来测量带括号和不带括号调用方法之间的差异，它确实显示了只有两个方法的类在1%和2%之间的微小差异。我想，如果班级很大，这个问题可能会上升。
下面是我用来进行基准测试的测试脚本：
#!/usr/bin/perl
use Benchmark qw(:all);
{
package Messages;
sub new {
浏览 4提问于2014-08-27得票数 5
1回答
在Perl上创建一个类( class ::Std)
perl、class、constructor、reference、std
我请求您在Perl方面提供帮助。
我目前通过创建一个新对象，然后使用它来运行函数，从而使我的代码工作得很好，但是我想使用更新的Perl编码方法(使用class:Std和集成的BUILD/START函数)。
所以现在我的代码看起来是这样的，我用一个日志文件的路径调用new，然后运行一个函数：
# Called from another perl script
use MyClass;
my $Obj = MyClass->new('/usr/me/path.log');
$Obj->run();
# My module
package MyClass;
sub n
浏览 0提问于2016-10-20得票数 1
1回答
如何不导出perl包中的所有函数/方法？
perl、object
我正在使用现有的perl模块，让我们称之为Obj。我向Obj添加了一些新特性(子例程/方法)，但将它们存储在另一个名为Foo的.pm中。然而，我不想让Obj继承Foo的每一个子项。
现在，我已经阅读了几个小时的perl文档，并且感到困惑。只是说‘不要导出方法名！’
下面是一些示例代码，我不想看到来自Obj.pm的子Obj.pm：
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
package Foo;# Foo is a new PM file used to extend Obj with collections
浏览 6提问于2022-01-23得票数 3
回答已采纳
3回答
如何在每次调用object的方法时检查一些值？
perl、oop、methods
我想检查对我的对象的方法的每次调用都有一些值(在本例中:token的年龄)。是否可以一次将其设置为所有方法？就像在构造函数中一样？我有这样一个简单的构造函数：
sub new {
my $class = shift;
my %args = @_;
my $self = {};
$self->{key} = $args{key};
bless($self, $class);
($self->{token}, $self->{token_start}) = $self->_get_authorized_token();
浏览 0提问于2012-08-10得票数 2
回答已采纳
1回答
Perl：：Method：：Signatures向所有方法注入自定义代码
perl、moose、moosex-types
我试图在应用程序中使用和，我需要在编译时(而不是在运行时)在每个方法的开头注入自定义代码：
而不是这样：
use MooseX::Declare;
method check ($value) {
$return $value;
}
我希望在编译时在每个方法的开头注入一个代码，如下所示：
method check ($value) {
my ($value) = $self->validate($value);
$return $value;
}
现在我要密码
my ($value) =$self->$value($value)；
使用Moos
浏览 2提问于2014-05-22得票数 2
回答已采纳
5回答
使用变量引用模块的Perl会导致传递参数混乱。
perl、perl-module
在使用变量引用模块时，我遇到了一个问题，这似乎会使变量的传递变得一团糟：
TOTO.pm
package TOTO;
use Data::Dumper;
sub print {
print Dumper(@_);
}
Perl程序
package main;
TOTO::print('Hello World');
print ">>>>>>>>>>>\n";
my $package = 'TOTO';
$package->print('Hello
浏览 7提问于2016-05-28得票数 5
回答已采纳
1回答
perl对象构造函数
perl、constructor
我在一篇教程中读到，类似于调用构造函数：
my $v = Vehicule->new( 2, "bleu" );
那么关注的类就是这样的
sub new {
my ($class,$nbRoues,$couleur) = @_;
my $this = {};
bless($this, $class);
$this->{NB_ROUES} = $nbRoues;
$this->{COULEUR} = $couleur;
return $this;
}
我不明白的是为什么@_ first元素包含类名？
my ($cl
浏览 2提问于2013-03-31得票数 1
3回答
在Perl中，如何确定我的文件是作为模块使用还是作为脚本运行？
perl、module、modulino
假设我有一个Perl文件，其中有一些部分只有在被作为脚本调用时才需要运行。我记得以前读过一篇文章，内容是将这些部分包含在main()方法中，并执行一个
main() unless(<some condition which tests if I'm being used as a module>);
但是我忘了条件是什么。搜索谷歌并没有找到任何有用的东西。有人能指出找这个的正确位置吗？
浏览 0提问于2009-07-15得票数 11
回答已采纳
3回答
如何在Perl中使用Bless运算符？
perl、bless
有没有人能解释一下在perl中使用bless的重要性和方法。我读过很多关于bless上的堆栈溢出的线程，但他们不清楚。
浏览 5提问于2013-06-20得票数 2
1回答
将perl的排序函数封装在一个对象中
perl、sorting、block
我试图在我的(面向对象的)包中提供一个排序函数，该包接受一个块，并使$a和$b像标准的Perl sort一样可用。
首先，我在包含包装排序函数的包中尝试执行的简化版本：
# In package My::Object
sub sort {
my $self = shift;
my $block = \&{shift @_};
return sort $block @{$self->{arrayRef}}; # I want to use the passed in block with array data contained in this object
}
然后
浏览 2提问于2015-01-21得票数 5
回答已采纳
1回答
在perl中向现有对象添加新方法
perl、oop
我有这个perl对象。在实例化对象之后，我尝试在加载器方法中向对象添加一个新方法，然后可以在以后调用该方法。
我试过很多没用的东西。示例包括：
sub loader {
my ($self) = @_;
sub add_me {
my ($self, $rec) = @_
warn "yayyyyyy";
return $rec;
}
#here are the things I've tried that dont work:
# &{$self->{add_m
浏览 3提问于2015-02-06得票数 6
回答已采纳
3回答
Perl中基本面向对象子函数的定义和使用
perl、oop
很抱歉，这会给社区带来麻烦，但不幸的是，我不得不用Perl :'( )编写代码。它是关于一个OO代码，我想要理解，但我没有把所有的部分放在一起。
下面是一个代码模板，以某种方式表示我正在查看的内容。下面是类MyClass
package Namespace::MyClass;
sub new($)
{
my ($class) = @_;
$self = { };
bless ($self, $class);
}
sub init($$)
{
my ($self, $param1) = @_;
$self->{whatever} = ($p
浏览 0提问于2015-04-02得票数 1
回答已采纳
1回答
Perl类中的私有变量
perl、moose
我开始学习使用Moose的Perl中的对象。
我不确定我是否理解MooseX::Privacy的目的。考虑：
use v5.14;
package PA {
use Moose;
my $var='private?';
1;
sub getVar {
return $var;
}
}
package PB {
use Moose;
use MooseX::Privacy;
has 'var' => (
is => 'rw',
浏览 5提问于2014-04-09得票数 4
9回答
子例程中的默认参数值
perl、function、subroutine
我不知道如何设置子例程的默认参数。以下是我考虑的内容：
sub hello {
print @_ || "Hello world";
}
如果你所需要的只是一个参数，那就很好用了。如何为多个参数设置默认值？
我打算这么做：
sub hello {
my $say = $_[0] || "Hello";
my $to = $_[1] || "World!";
print "$say $to";
}
但那是很大的工作量...一定有一种更简单的方法；可能是一种最佳实践？
浏览 0提问于2010-08-23得票数 14
2回答
perl继承和目录结构
perl
我正在努力学习Perl中的继承。
这是我的目录结构：
perldir
perldir\child.pl
perldir\Mylib
perldir\Mylib\Parent.pm
Parent.pm
package Parent;
sub new {
my $class = shift;
my $self = { _first => shift, _last => shift };
bless $self, $class;
}
sub getFirstName {
my ($self) = @_;
return $self->{
浏览 5提问于2015-06-18得票数 0
回答已采纳
2回答
有没有办法知道Perl中未知类的实例的方法？
perl、object
我在Perl中有一个程序，它使用我从另一个来源获得的包。方法的一个函数返回一个未知类的对象，有没有一种方法可以让我获得对象的所有可能的方法，而不需要查看它的类实现？
浏览 0提问于2012-06-03得票数 5
回答已采纳
2回答
本地更改Perl中类的属性。
perl、oop、scope、lexical-scope
在我的Perl脚本中，我遇到了一个奇怪的问题。我有一个Perl对象。在某个范围内，我希望更改其中一个对象属性，但希望在离开该范围后将该属性还原为它的旧值。
示例：
my $object = Object->new('name' => 'Bob');
{
# I know this doesn't work, but it is the best way
# I can represent what I amd trying to do.
local $object->name('Lenny'
浏览 0提问于2015-09-03得票数 5
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
