目次

内容

基本的なスクリプト例

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; # プライベート変数へのアクセス方法
    }

}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2016-09-25 (日) 19:27:03 (442d)