You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
2.1 KiB
71 lines
2.1 KiB
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
<html>
|
|
|
|
<head>
|
|
<meta http-equiv="Content-Type"
|
|
content="text/html; charset=iso-8859-1">
|
|
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
|
|
<title>PerlScript sample: Hello, world</title>
|
|
</head>
|
|
|
|
<!--
|
|
ActiveState PerlScript sample
|
|
PerlScript: The coolest way to program custom web solutions.
|
|
-->
|
|
|
|
<TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0>
|
|
<TR VALIGN=TOP ><TD>
|
|
<A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=2></A><P>
|
|
</TD></TR></TABLE>
|
|
<HR>
|
|
|
|
|
|
<BODY BGCOLOR=#FFFFFF topmargin="8">
|
|
<!--
|
|
Microsoft PerlScript sample
|
|
-->
|
|
|
|
<font size="5"></font><font size="5">HTML says: Hello, world!<br>
|
|
<script language="VBScript"><!--
|
|
document.write "VBScript says: Hello, world!"
|
|
--></script><br>
|
|
<script language="PerlScript">
|
|
$window->document->write("PerlScript says: Hello, world!");
|
|
</script></font><br>
|
|
|
|
<form method="POST" name="MyForm">
|
|
<p><input type="text" size="32" name="Text1"
|
|
value="Text1 says: Hello, world!"></p>
|
|
<p><font size="5"><input type="button" name="VBSBtnHello"
|
|
value="VBScript"><script language="VBScript"><!--
|
|
Sub VBSBtnHello_OnClick
|
|
MyForm.Text1.value = "VBScript says: Hello, world!"
|
|
End Sub
|
|
--></script> <input
|
|
type="button" name="PLSBtnHello" value="PerlScript"></font>
|
|
<script language="PerlScript">
|
|
sub PLSBtnHello_onClick
|
|
{
|
|
#$MyForm->Text1->{'value'} = "PerlScript says: Hello, world!";
|
|
$window->document->MyForm->Text1->{'value'} = "PerlScript says: Hello, world!";
|
|
}
|
|
sub PLSBtnHello_onclick
|
|
{
|
|
PLSBtnHello_onClick
|
|
}
|
|
</script><font size="5"> </font></p>
|
|
</form>
|
|
<HR>
|
|
<p align="center"><font size="5"></font> </p>
|
|
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600>
|
|
<TR VALIGN=TOP>
|
|
<TD ALIGN=RIGHT>
|
|
<FONT FACE="Arial, Helvetica" SIZE="1">
|
|
<B>Best experienced with<BR>
|
|
<A HREF="http://www.microsoft.com/ie/" TARGET="_top"><img src="ie_animated.gif" width="88" height="31" border="0" alt="Microsoft Internet Explorer" vspace="5"></a>
|
|
<BR>Click here to start.</B>
|
|
</FONT></TD>
|
|
</TR>
|
|
</TABLE>
|
|
</body>
|
|
</html>
|