目次 †内容 †基本的なスクリプト例 †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; # プライベート変数へのアクセス方法 } } |