亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: perl的類里面有其他類對(duì)象作為成員變量，怎么辦？ [打印本頁(yè)]

作者: 317550564 時(shí)間: 2012-05-15 13:26
標(biāo)題: perl的類里面有其他類對(duì)象作為成員變量，怎么辦？
本帖最后由 317550564 于 2012-05-15 13:46 編輯

package Account;

sub new{
my $class = shift;
my ($user_name,$password)=@_ ;
my $self={
      "user_name" => $user_name,
      "password" => $password,
      Area？？？#有個(gè)Area類對(duì)象
} ;
bless($self, $class);
return $self;
}
Area#有個(gè)Area類

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

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

作者: zhlong8 時(shí)間: 2012-05-15 13:37
請(qǐng)你理清頭緒再問(wèn)一遍

作者: 317550564 時(shí)間: 2012-05-15 13:47

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

我又問(wèn)了一遍

作者: zhlong8 時(shí)間: 2012-05-15 13:58

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

sub new{

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

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

作者: 317550564 時(shí)間: 2012-05-15 14:00

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

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

作者: zhlong8 時(shí)間: 2012-05-15 14:07

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

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

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

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

作者: py 時(shí)間: 2012-05-15 14:28
回復(fù) 1# 317550564

flw說(shuō)Perl的面向?qū)ο缶褪恰皩?shí)用主義”。這個(gè)說(shuō)法極準(zhǔn)確的說(shuō)明了Perl面向?qū)ο蟮臓顩r。

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

你甚至不用再問(wèn)Perl里是不是可以這樣可以那樣，書(shū)里介紹的就是Perl提供的，沒(méi)有介紹的就是沒(méi)有的。

作者: 317550564 時(shí)間: 2012-05-15 14:34

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

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

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

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

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

作者: 317550564 時(shí)間: 2012-05-15 14:36

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

flw說(shuō)Perl的面向?qū)ο缶褪恰皩?shí)用主義”。這個(gè)說(shuō)法極準(zhǔn)確的說(shuō)明了Perl面向?qū)ο蟮臓顩r。 ...

恩，perl適用的地方不同

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

作者: zhlong8 時(shí)間: 2012-05-15 15:00

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

是應(yīng)該用

這么用是最保險(xiǎn)的，將來(lái)你熟練了再考慮另一種方式的可能性吧。

歡迎光臨 Chinaunix (http://www.72891.cn/)