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類

有個賬戶類
三個參數(shù)
user_name
password
area 是個類對象
我該怎么初始化？
在new()之前先創(chuàng)建一個Area對象，
還是在new{}里 創(chuàng)建Area對象？

調(diào)用的時候
$area = Account->new('user_name'=>"tom",'password'=>"abc",???);#這里呢？

zhlong8

請你理清頭緒再問一遍

317550564

zhlong8 發(fā)表于 2012-05-15 13:37
請你理清頭緒再問一遍

我又問了一遍

zhlong8

317550564 發(fā)表于 2012-05-15 13:26
package Account;

sub new{

怎么都可以，看你怎么設(shè)計了。比如你的 area 可以很簡潔的描述比如  area => 'Beijing/China' 這樣的描述型，那在 Account 里面轉(zhuǎn)換下直接構(gòu)建，這樣調(diào)用的時候會很清晰。如果構(gòu)建這個 area 很復(fù)雜那先構(gòu)建再作為參數(shù)傳入可以降低耦合。

最后你這么用 @_ 是不能用 key => value 這種方式調(diào)用的

317550564

zhlong8 發(fā)表于 2012-05-15 13:58
怎么都可以，看你怎么設(shè)計了。比如你的 area 可以很簡潔的描述比如  area => 'Beijing/China' 這樣的描 ...

謝謝啊。
就是不明白。
那應(yīng)該用什么方式？
不明白

zhlong8

317550564 發(fā)表于 2012-05-15 14:00
謝謝啊。
就是不明白。
那應(yīng)該用什么方式？

你可以隨便選擇一種用，如果代碼寫著感覺很痛苦那就是選錯了。

new 應(yīng)該這樣寫才行

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

py

回復(fù) 1# 317550564

flw說Perl的面向?qū)ο缶褪恰皩嵱弥髁x”。這個說法極準(zhǔn)確的說明了Perl面向?qū)ο蟮臓顩r。

昨天一個JAVA程序員問我用什么語言，我說Perl。他說“那個語言好像是腳本語言，而且都不是面向?qū)ο蟮摹薄?br />
如果“面向?qū)ο蟆笔悄愕哪繕?biāo)，那還是別用Perl了，最后你非罵娘不可。如果你只是想用一些面向?qū)ο蟮募夹g(shù)方便寫模塊，那就看這個Oreilly.Learning.Perl.Objects.References.And.Modules.eBook-LiB或是網(wǎng)上的一些例子。

你甚至不用再問Perl里是不是可以這樣可以那樣，書里介紹的就是Perl提供的，沒有介紹的就是沒有的。
   

317550564

zhlong8 發(fā)表于 2012-05-15 14:07
你可以隨便選擇一種用，如果代碼寫著感覺很痛苦那就是選錯了。

new 應(yīng)該這樣寫才行

好多不明白的。。你一句話當(dāng)我20分鐘學(xué)習(xí)。。厲害了。。

是應(yīng)該用
$area=Area->new("BEIJING");
$account=Account->new("tom","abc",$area);#這樣么？


我覺得這種寫法
my $self={
         參數(shù)1...
         參數(shù)2...
         參數(shù)3...
}
很直觀，很給力
但是不知道哪些地方適用。

317550564

py 發(fā)表于 2012-05-15 14:28
回復(fù) 1# 317550564

flw說Perl的面向?qū)ο缶褪恰皩嵱弥髁x”。這個說法極準(zhǔn)確的說明了Perl面向?qū)ο蟮臓顩r。 ...

恩，perl適用的地方不同

我是在做個小項目用mason+mod_perl做個網(wǎng)站
需要業(yè)務(wù)邏輯分離
就想到了 面向?qū)ο蟆?br /> 所以遇到很多麻煩 需要指教。

zhlong8

317550564 發(fā)表于 2012-05-15 14:34
好多不明白的。。你一句話當(dāng)我20分鐘學(xué)習(xí)。。厲害了。。

是應(yīng)該用

這么用是最保險的，將來你熟練了再考慮另一種方式的可能性吧。