初心者のためのプログラミング言語ガイド Part8

初心者のためのプログラミング言語ガイド Part8 at TECH

245:サイタマン ◆mYN3wsz7vE
08/04/23 11:10:28
>>244
そうだね。

一応、上に書いた呼び出し方は古いから
oopでの呼び出し方も書いておきます。

use Test;
my $obj = Test->new();
my $d=$obj->call(1,2);

print $d;#結果は3

package Test;

sub new {
my $pkg = shift;
bless {},$pkg;
}

sub call{
my $self = shift;
my($a,$b)=@_;
my $c=$a+$b;
return $c;
}
1;

次ページ

続きを表示

1を表示