printsource.psp

来自「mini http server,可以集成嵌入到程序中,实现简单的web功能」· PSP 代码 · 共 28 行

PSP
28 行
字号 
#!/usr/local/psp
<%
sub getText {
    open INP, "<".shift || return "ERROR";
    my ( $r ) = "";
    while( <INP> ) {
        s/</&lt;/g;
        s/>/&gt;/g;
        $r .= $_;
    };
    close INP;
    return $r;
};
%><%@ page parsedLength="true" %>
<html><body background="/icons/Pi3Tile.gif" bgcolor="#FFFFFF">
<table width="100%"><TR>
<td align=LEFT valign=CENTER><h1>Perl Server Pages</h1></td>
<td align=CENTER valign=CENTER><img src="/icons/Pi3Web_earth2.gif" alt="Pi3Web"></td>
</tr></table>
<hr>
<h3>PSP source code of script <%= $pspRequest{"PathInfo"}; %></h3>
<h5>(<%= $pspRequest{"PathTranslated"}; %>)</h5>
<pre>
<%= getText( $pspRequest{"PathTranslated"} ); %>
</pre><hr>
<%= $o="<form method=\"GET\" action=\"".$pspRequest{"Referer"}."\"><input type=\"Submit\" value=\"Back\">"; %>
</body></html>

printsource.psp - 源码说明

本页面展示了「mini http server,可以集成嵌入到程序中,实现简单的web功能」中的 printsource.psp 源码文件，采用 PSP 编程语言编写，共 28 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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