view-results.pl
来自「ace开发环境 用来开发网络程序 其运用了设计模式、多平台、C++等多种知识」· PL 代码 · 共 56 行
PL
56 行
#!/pkg/gnu/bin//perl5##$Id: view-results.pl 32986 2000-06-04 22:02:08Z brunsch $#push(@INC, "$wd/bin");require('WebStone-common.pl');require('wscollect.pl');$debug = 0;$printedTitles = 0;html_begin("Results");print CLIENT "<H3>WebStone Results</H3>";($debug) && print STDERR "opening table\n";print CLIENT "<BODY><TABLE BORDER=1>\r";@directories = ("$wd/bin/runs");directory: for (@directories) { &find($_);}($debug) && print STDERR "closing table\n";print CLIENT "</TABLE></BODY>\r";html_end();# end mainsub printcustom { if (!$printedTitles) { $printedTitles = 1; print CLIENT "<TR>"; for $title (@title) { print CLIENT "<TH>$title</TH>\r"; } # end for title print CLIENT "</TR>\r"; } print CLIENT "<TR>"; $first_column = 1; for $data (@data) { if ($first_column) { $first_column = 0; print CLIENT "<TD><A HREF=$wd/bin/runs/$data>$data</A></TD>\r"; } else { print CLIENT "<TD ALIGN=RIGHT>$data</TD>\r"; } } # end for data print CLIENT "</TR>\r";}# end⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?