- 245 名前：サイタマン ◆mYN3wsz7vE [2008/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;
