perl的类 里面有其他类对象作为成员变量，怎么办？

317550564

package Account;

sub new{
    my $class = shift;
    my ($user_name,$password)=@_ ;
    my $self={
        "user_name" => $user_name,
        "password" => $password,
         Area？？？#有个Area类对象
    } ;
    bless($self, $class);
    return $self;
}
Area#有个Area类

有个账户类
三个参数
user_name
password
area 是个类对象
我该怎么初始化？
在new()之前先创建一个Area对象，
还是在new{}里 创建Area对象？

调用的时候
$area = Account->new('user_name'=>"tom",'password'=>"abc",???);#这里呢？

zhlong8

请你理清头绪再问一遍

317550564

zhlong8 发表于 2012-05-15 13:37
请你理清头绪再问一遍

我又问了一遍

zhlong8

317550564 发表于 2012-05-15 13:26
package Account;

sub new{

怎么都可以，看你怎么设计了。比如你的 area 可以很简洁的描述比如  area => 'Beijing/China' 这样的描述型，那在 Account 里面转换下直接构建，这样调用的时候会很清晰。如果构建这个 area 很复杂那先构建再作为参数传入可以降低耦合。

最后你这么用 @_ 是不能用 key => value 这种方式调用的

317550564

zhlong8 发表于 2012-05-15 13:58
怎么都可以，看你怎么设计了。比如你的 area 可以很简洁的描述比如  area => 'Beijing/China' 这样的描 ...

谢谢啊。
就是不明白。
那应该用什么方式？
不明白

zhlong8

317550564 发表于 2012-05-15 14:00
谢谢啊。
就是不明白。
那应该用什么方式？

你可以随便选择一种用，如果代码写着感觉很痛苦那就是选错了。

new 应该这样写才行

sub new {
    my($class, %params) = @_;
    my $user_name = $params{'user_name'};
    ...;
}

py

回复 1# 317550564

flw说Perl的面向对象就是“实用主义”。这个说法极准确的说明了Perl面向对象的状况。

昨天一个JAVA程序员问我用什么语言，我说Perl。他说“那个语言好像是脚本语言，而且都不是面向对象的”。

如果“面向对象”是你的目标，那还是别用Perl了，最后你非骂娘不可。如果你只是想用一些面向对象的技术方便写模块，那就看这个Oreilly.Learning.Perl.Objects.References.And.Modules.eBook-LiB或是网上的一些例子。

你甚至不用再问Perl里是不是可以这样可以那样，书里介绍的就是Perl提供的，没有介绍的就是没有的。
   

317550564

zhlong8 发表于 2012-05-15 14:07
你可以随便选择一种用，如果代码写着感觉很痛苦那就是选错了。

new 应该这样写才行

好多不明白的。。你一句话当我20分钟学习。。厉害了。。

是应该用
$area=Area->new("BEIJING");
$account=Account->new("tom","abc",$area);#这样么？


我觉得这种写法
my $self={
         参数1...
         参数2...
         参数3...
}
很直观，很给力
但是不知道哪些地方适用。

317550564

py 发表于 2012-05-15 14:28
回复 1# 317550564

flw说Perl的面向对象就是“实用主义”。这个说法极准确的说明了Perl面向对象的状况。 ...

恩，perl适用的地方不同

我是在做个小项目用mason+mod_perl做个网站
需要业务逻辑分离
就想到了 面向对象。
所以遇到很多麻烦 需要指教。

zhlong8

317550564 发表于 2012-05-15 14:34
好多不明白的。。你一句话当我20分钟学习。。厉害了。。

是应该用

这么用是最保险的，将来你熟练了再考虑另一种方式的可能性吧。