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;