📄 current_time-unindent.cgi

📁 嵌入式ＷＥＢ

💻 CGI

字号:

#!/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 $_;}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -