n1.pl

来自「simple perl programs to understand suse 」· PL 代码 · 共 12 行

PL
12
字号
#! /usr/bin/perlprint "Content-type:text/html\n\n";print "<h1>Server Information<h1>";print "<body bgcolor=\"red\">";print "<br><i>Server Name=",$ENV{'SERVER_NAME'};print "<br><i>Server Software=",$ENV{'SERVER_SOFTWARE'};print "<br><i>Server Protocol=",$ENV{'SERVER_PROTOCOL'};print "<br><i>Cgi Version=",$ENV{'GATEWAY_INTERFACE'};exit(0);

⌨️ 快捷键说明

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