教えて perl の委譲 : すぃーとあんだーあーむ

教えて君コミュニティー【ASKS?】

【教えてくん】コミュニティーなのです。

なんかニュースとかあったらここに書こうかと思ってますよ。とりあえず、おいらのブログ

教えて perl の委譲 : すぃーとあんだーあーむ

すぃーとあんだーあーむ (すぃーとあんだーあーむ) 投稿者,
@ 2007-08-06 22:51:00

現在のヒトコト:

わかんない

教えて perl の委譲
perl で composition(世間では delegete とか委譲とか呼ばれている)がよくわかりません。

package B;
sub new {
  bless {}
}
sub print {
  my $self=shift;
  print @_;
}
package C;
sub new {
   my $pkg=shift;
   my $obj=new B;
   bless { obj=>$obj},$pkg;
   $pkg->init();
   $pkg;
}
sub init {
  my $self=shift;
  $self->{obj}->print("abc");
}
package main;
my $c=new C;

とやると動かない。
これは $self->{obj}->print("abc"); の代わりに B::print($self->{obj},"abc") とやれば大丈夫。
でも、もし B が派生クラス、つまり B の定義が次のような時ってどうすればいいんだろう？

package A;
sub new {
  bless {}
}
sub print {
  my $self=shift;
  print @_;
}
package B;
@ISA=qw(A);
sub new {
  bless {}
}

B の実装を暴いて（ソースを読んで） A を探さないとダメなのかなぁ？
B 単独だとオーバライドできてるのになぁ。

(新しいコメントを投稿する)

(Reply from suspended user)
すぃーとあんだーあーむ

2007-08-07 12:27 am (リンク)

最近、perl と縁切ろうかと思ってたんだけど、いろいろ調べるとあと数年は現役なんじゃないかという結論が出た。
でもって、手元のスクリプトを全部オブジェクト指向にリファクタリングしようとしてつまづいた。

PHP のこと調べもせずにほめたり悪口言ったりはできないけど、ネットワーク系のBASICとか言われているね。
ちょっと、私の書いたサンプルを PHP に移植してみて欲しい。

(コメントを残す) (親コメント) (子コメント)

(Reply from suspended user)
すぃーとあんだーあーむ

2007-08-08 11:08 am (リンク)

やってみた

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html lang="ja">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>test for php</title>
</head>
<body>
<p>
<?php
class A{
function p($string) {
  echo $string,"\n";
}
}
class B extends A{
}
class C{
	private $obj;
function __construct(){
   $this->obj=new B;
   $this->init();
}
function init() {
  $this->obj->p("abc");
}
}
$c=new C;
?>
</p>
</body>
</html>

さくっと動いた。

(コメントを残す) (親コメント) (子コメント)

(Reply from suspended user)
trick

2007-08-07 12:25 am (リンク)

多重継承って事ですかいな？( ﾟДﾟ)y─┛~~

http://www.rfs.jp/sb/perl/04/03.html

(コメントを残す) (子コメント)

すぃーとあんだーあーむ

2007-08-07 01:10 am (リンク)

協力ありがとう。おかげでなにを実験すればいいかわかったよ。

(コメントを残す) (親コメント)

すぃーとあんだーあーむ

2007-08-07 01:12 am (リンク)

自己解決しました。
結局 new から他のメソッドを呼んじゃいけないようです。
bless をやるメソッドは他のことをさせないのが鉄則かな？
上も
$pkg->init();
を消して、
package main;
で
$c->init();
をやれば問題ありませんでした。

(コメントを残す)

(Deleted post)
すぃーとあんだーあーむ

2007-08-07 03:11 pm (リンク)

ありがとう。
なんとなく、perl のコンストラクタって何をするものかやっと把握できた気がする。
書き直すとこうかな？

package C;
sub new {
   my $pkg=shift;
   my $obj=new B;
   my $self=bless { obj=>$obj},$pkg;
   $self->init();
   $self;
}

コンストラクタで呼ばれるときと、メソッドで呼ばれる時の引数のフォーマットが違うんだね。

(コメントを残す) (親コメント)

kappie

2007-08-07 09:07 am (リンク)

asks?のレベルの高さにびびった

(コメントを残す) (子コメント)

すぃーとあんだーあーむ

2007-08-07 03:12 pm (リンク)

結構なんでも答えてくれるよね。

(コメントを残す) (親コメント)

amy

2007-08-15 11:55 pm (リンク)

読んだだけで分かった気分がした。

(ﾟｰﾟ*)＜勘違ｲｯﾃｲｯﾁｬｲﾔｗ

(コメントを残す) (子コメント)

すぃーとあんだーあーむ

2007-08-17 09:12 am (リンク)

perl 以外の言語って言うと大げさだけど、普通はコンストラクタは何も返さないで、言語仕様でなんとかしてくれる。コンストラクタで this とか使っても正しくメソッドを指してくれる。

でも、 perl はコンストラクタのすべき義務が決まっていて、その通りに作らなければならない(けど、この手のルールを明文化してあるドキュメントが私の検索能力では見つからなかった)。
this の正体も看過しなければならず、コンストラクタと、メソッドでは作り方が違う。

オブジェクト指向言語を作るには役に立ったと思えばいいのかな？

なんか御役に立てて良かったのかも。PHP もちょっとわかったし。

(コメントを残す) (親コメント) (子コメント)

(Deleted post)
すぃーとあんだーあーむ

2007-09-01 02:38 am (リンク)

なるほど。それで簡潔なコメントができたわけね。

(コメントを残す) (親コメント)