<%@ LANGUAGE = PerlScript%>
Dump PerlScript's Variables
<%
#
# here are some variables and functions defined
# just so we can see them in the dump
#
$MyForm::var5= "MyForm::var5";
$YourForm::var5= "YourForm::var5";
$myScalar = "Scalar String";
$myLongString = "Here is a long string that goes on and on and on and on and on and on and on";
$myHash{red}="apple";
$myHash{green}="pear";
$myHash{black}="olive";
@myArray=('one','two','three');
sub foo ($$$)
{
my ($a,$b,$c) = @_;
}
sub MyForm::foo($$$)
{
my ($a,$b,$c) = @_;
}
%>
Dump PerlScript's Variables
<% DumpPerlNames(); %>
... That's all folks!
<%
$url = $Request->ServerVariables('PATH_INFO')->item;
$_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
s/[\/\\](\w*\.asp\Z)//m;
$params = 'filename='."$1".'&URL='."$url";
$params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
%>
Return
view the source
