在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 2165|回复: 0

[求助] 想请问下perl如何在一个.pm文件里引用另一个.pm文件定义的方法

[复制链接]
发表于 2018-11-2 15:18:10 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
本帖最后由 mengxiao15 于 2018-11-2 15:32 编辑

新手学习perl遇到OOP的问题,想请大神帮忙解答下,现在输出引用的sub为address=HASH...不知道原因。。。。(还有这样引用是不是不规范,想请教下规范的写法,谢谢)
person.pm
package person;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(getName);

sub new {
my $inbocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
name => shift,
};
bless $self, $class;
return $self;
}

sub getName {
my ($self) = @_;
return $self->{name};
}

1;



address.pm
package address;

use person;

sub new {
my $inbocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
house => shift,
post  => shift,
};
bless $self, $class;
$self->getName( $self->{name});
return $self;
}

sub getHouse {
my ($self) = @_;
return $self->{house};
}

sub getPost {
my ($self) = @_;
return $self->{post};
}

sub message {
my ($self, $name) = @_;
$self->getName( $name );
}
1;


address.pl
#!/usr/bin/perl -w

use warnings;
use address;

$p = address->new("villa", "100000");
$p->message("Tom");

printf ("House: %s\tPost: %s\t$p", $p->getHouse(), $p->getPost());
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

小黑屋| 手机版| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-11-5 21:45 , Processed in 0.012018 second(s), 6 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表