A simple perl class

//  student.pl

use Student;
$stuCount = 0 ;
while ($stuCount < 3 )
... {
    $stuObj=Student->new();;
    $stuObj->name("a");
    $stuObj->age($stuCount+10);
    push @AllStu,$stuObj;
    
    $stuCount++;
}

while ($stuCount)
... {
    $stu=$AllStu[$stuCount-1];
    printf "name: %s, age: %d ",$stu->name,$stu->age;
    $stuCount--;
}

 

//  student.pm
package Student;

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 ;