- or download this
Here are the statistics for the Sino.
Address: kk ID: kk
<...continues...>
Course(s): Chem, Bio, Maths, C++, Java
After dropping: Chem, Bio, Maths, , Java
- or download this
package Student3;
sub new { my $class = shift; my $ref = {};
...
print "After dropping: ",
join (", ", @{$self->{'Course(s)'}->{'cour'}}), "\n";
1;
- or download this
#!/usr/bin/perl -w
use Student3;
...
$student1->add_courses(["C++", "Java"]);
$student1->show_student;
$student1->drop_courses(["C++"]);