オブジェクト指向プログラミング始める。

今まで逃げ続けていたオブジェクト指向。本やウェブページによる解説、様々なサンプルなどを読み進め、ようやく（遅い？）テストプログラムを書き始めた。今回は計算機を作っている。

といっても、"普通の"計算機ではなく、特殊用途のものではあるが…

package main;

my $str;

my $calc = Calc->new($str);

....

package Calc;

sub new {

　　my $class = shift;

　　my $self = {

　　　　　　　　　　str => shift ,

　　　　　　　　　　num => 1

　　　　　　　　}

　　return bless $self $class;

}

sub split {

　　my $class = shift;

　　$class->{str} = .....

まだ「継承」とか？？？？ですけど、始まったばかりなので温かな気持ちで見守ってください（？）