Perl/オブジェクト指向

目次 †

内容 †

基本的なスクリプト例 †

my $obj = TestClass->new( "global", "private" );
$obj->printPrivateVal();

### クラスの始まり
{
    package TestClass;
 

    ### プライベート変数
    my $private;
    
    ### コンストラクタ
    sub new{
        my $class = shift;
        my $self = {};             # インスタンス
        $self->{"global"} = shift; # グローバル変数
        $private = shift;          # プライベート変数
        return bless $self, $class;
    }

    ### メソッド
    sub printPrivateVal{
        my $self = shift;
        print $private; # プライベート変数へのアクセス方法
    }

}