current_time-unindent.cgi

来自「嵌入式ＷＥＢ」· CGI 代码 · 共 38 行

CGI
38 行
字号 
#!/usr/bin/perl -wTuse strict;use CGI;my $timestamp = localtime;display_document( $timestamp );sub unindent;sub display_document {    my $timestamp = shift;        print unindent <<"    END_OF_MESSAGE";      Content-type: text/html            <html>        <head>          <title>The Time</title>        </head>                <body bgcolor="#ffffff">          <h2>Current Time</h2>          <hr>          <p>The current time according to this system is:           <b>$timestamp</b></p>        </body>      </html>    END_OF_MESSAGE}sub unindent {    local $_ = shift;    my( $indent ) = sort /^([ \t]*)\S/gm;    s/^$indent//gm;    return $_;}

current_time-unindent.cgi - 源码说明

本页面展示了「嵌入式ＷＥＢ」中的 current_time-unindent.cgi 源码文件，采用 CGI 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与嵌入式相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?