Perlにおけるオブジェクト指向

投稿日：2016年4月18日更新日：2020年5月17日

今回はPerlのオブジェクト指向について。

Javaほどの厳密性はありませんが、Perlでもオブジェクト指向的なプログラミングを行うことは可能です。

今回はPerlのオブジェクト指向をさらっと基本的な部分(名前空間、コンストラクタ、継承)だけ見ていきたいと思います。

Contents

プログラミングでは規模が大きくなってくると変数名や関数名がかぶってしまうことが見られます。

これが重要な変数だった場合、意図しない上書きなどをしてしまう可能性があります。そのために同じtitleという変数名であっても”どの”titleなのかということを明記しておく必要があります。

この”どの”に当たる概念が名前空間であり、perlではこれを下記のように書きます。

package Point

こうしておくとPointのtitleということを明記できますので、変数名の衝突を防ぐことができます。

階層が複雑な場合は、 package Foo::Bar::Point などともかきます。

Perlではコンストラクタの概念が難しいです。

sub new { 
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}

sub new {

my $class = shift;

my $self = {};

return bless $self, $class;

}

上記のコードの場合下記のような流れになります。

Perlでは他のモジュールを利用するときはuse　パッケージ名として使用することが一般的です。(拡張子がpmじゃないと呼べません)

また継承を行うときはuse baseとして呼び出します。

初期値があるインスタンス生成は下記のように作成します。

sub new {

    my $class  = shift;
    my $self ={
        @_
    };
    bless $self, $class;
}

#呼び出す側
インスタンス = クラス名->new('引数1' =>値1, '引数2' => 値2 );

sub new {

my $class = shift;

my $self ={

};

bless $self, $class;

}

#呼び出す側

インスタンス = クラス名->new('引数1' =>値1, '引数2' => 値2 );

似たようなファイルの読み込みにrequireがありますが、下記のような点が違います。