รหัสต้นฉบับเพื่อการศึกษา

File : grade.pl. ID : 0709

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

#!/usr/bin/perl
require 'parse.pl'; &parse_form;
print "Content-type: text/html\n\n";
print "<html><body>";
$mainf= join'',"grd",substr($v{'id'},0,3),".txt";
open(FILE,"$mainf"); @ar = <FILE>; close(FILE);
foreach $r(@ar){  
  @rec = split(",",$r);
  if ($v{'id'} eq $rec[0]) {
    print "Status: $rec[3]<ol>";
    for $i (4..@rec-2) {print "<li>$rec[$i]";}
  }
}