📄 printsource.psp

📁 mini http server,可以集成嵌入到程序中,实现简单的web功能

💻 PSP

字号:

#!/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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -