示例Perl脚本

＃perl的！
使用CGI，
$ Q =新的CGI; 
＃获取传递给该脚本的参数
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
$名称= $ Q->参数（'名称'）; 
$测试名= $ Q->参数（'测试名称'）; 
$ numQuestions = $ Q->参数（'NumQuestions'）; 
$ passingGrade = $ Q->参数（'PassingGrade'）; 
$得分= $ Q - >参数（'分数'）; 
如果（$测试名情商“”| | $ numQuestions情商“”）
{ 
 打印“内容类型：文本/ HTML \ n \ n已”; 
 打印“<html>的” 
 打印“<头> <TITLE>失败</ TITLE> </ HEAD>“ 
 打印“<BODY>” 
 打印“状态= 500”; 
 打印“名称以”; 
 打印“测试结果无法解析由于参数错误。 “ 
 打印“</ BODY> </ HTML>”; 
 出口0; 
} 
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ 
＃获取当前时间
＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
（$秒，$分，$小时，$ MDAY，$周一，$年，$ WDAY，$ yday，$ isdst）
= localtime的（时间）; 
$年= $年+ 1900; 
$ MON = $星期一+ 1; 
$ currtime =“$年$星期一$ MDAY每小时$：$分钟：$秒”;

＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ 
＃由程序产生的旧课程使用从零开始的索引的
问题（即Question0是第一个问题）'＃较新的课程为一
基于（即问题1是第一个问题）' 
＃确定它是哪一个“ 
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
$的startIndex = 0; 
$温度= $ Q->参数（' 
Question0'）;如果（$ TEMP EQ 
“”）
{ 
 $在startIndex = 1; 
} 
$指数= $在startIndex;

＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ 
＃写出所有的问题和答案
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃
而（$指数<（$在startIndex + $ numQuestions））{ 
 $ QST =“问题$指数”; $ ANS =“答案$指数”; $ qval = $ Q->参数
 （$ QST）; $ AVAL = $ Q->参数（$ ANS）; 
 打印TESTDATA“$ QST：$ qval \ N”的; 
 打印TESTDATA“$ ANS：$ AVAL \ N”的; 
 $指数+ = 1; 
}

靠近TESTDATA; 
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃回复它的工作
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃打印$ Q->头（）; 
打印“STATUS = 200 \ r \ N”的;