http://movapic.com/fn7/pic/189085

http://movapic.com/fn7/pic/186593

http://movapic.com/fn7/pic/186290

http://movapic.com/fn7/pic/187420

http://movapic.com/fn7/pic/187414

http://movapic.com/fn7/pic/187322

http://movapic.com/fn7/pic/187297

http://movapic.com/fn7/pic/184880

http://movapic.com/fn7/pic/184782

http://movapic.com/fn7/pic/184571

http://movapic.com/fn7/pic/184459

http://movapic.com/fn7/pic/184390

http://movapic.com/fn7/pic/184378

http://movapic.com/fn7/pic/183675

package AA; use strict; use warnings; sub new{ bless { var=>'インスタンス変数' },shift; } ↑通常。 package AA; use strict; use warnings; sub new{ my ($class) = @_; my $self = bless {},$class; no strict 'refs'; my $var = 'インスタンス変数'; …

package AA; use strict; use warnings; $AA::var = 'クラス変数' sub new{bless {},shift} (略) ↑パッケージに結びつけてることが一目瞭然。外部からは「$AA::var」でアクセス可能 packge AA; use strict; use warnings; use vars qw(var); $val = 'クラス…

http://movapic.com/fn7/pic/180606

http://movapic.com/fn7/pic/180593

http://movapic.com/fn7/pic/179251

http://movapic.com/fn7/pic/178502

http://movapic.com/fn7/pic/178497

http://movapic.com/fn7/pic/178494

http://movapic.com/fn7/pic/178246

http://movapic.com/fn7/pic/174168

http://movapic.com/fn7/pic/173133

http://movapic.com/fn7/pic/173118

http://movapic.com/fn7/pic/172175

http://movapic.com/fn7/pic/172047

http://movapic.com/fn7/pic/169996

http://movapic.com/fn7/pic/169176