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;