📄 printsource.psp
字号:
#!/usr/local/psp
<%
sub getText {
open INP, "<".shift || return "ERROR";
my ( $r ) = "";
while( <INP> ) {
s/</</g;
s/>/>/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 + -