EETOP 创芯网论坛

找回密码

  登录   注册  

搜帖子
汽车电子资料大全(下载奖励300信元)
查看: 512|回复: 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());
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

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

GMT+8, 2020-1-24 14:39 , Processed in 0.053700 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表