class1.cgi

非常优秀的一套办公系统

sub returnclass {
my $setclassmon=shift;
return if (!$setclassmon);
my @classinfo=&readdatafile("Class.DB");
  foreach (@classinfo) {
    ($remon,$rename,$last) = split(/\‖/,$_);
    return $_ if ($setclassmon eq $remon);
  }
}