Perl oop研究
发现有个蛋疼的事情，还是没了解透。记录下已经研究出来的。package Person;
use strict;
sub new{
my $self = {};
$self->{name} =undef;
$self->{age}=undef;
bless($self);
return $self;
}
sub name{
my $self=shift;
if(@_){$self->{name}=shift};
return $self->{name};
}
sub age{
my $self=shift;
if(@_){$self->{age}=shift};
return $self->{age};
}
1;
#!/usr/bin/perl
use Person;
$tom=Person->new();
print $tom->name('smart,Tom');
print $tom->age(11);
页:
[1]