class1.cgi

来自「学生信息系统,这个程序设置非常简单」· CGI 代码 · 共 10 行

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