home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _d7ce841673ef7644c1464d3a53a9f5af < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.6 KB  |  59 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type"
  6. content="text/html; charset=iso-8859-1">
  7. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  8. <title>PerlScript sample: Hello, world</title>
  9. <link rel="stylesheet" type="text/css" href="../HTML/Active.css">
  10. </head>
  11.  
  12. <!-- 
  13.     ActiveState PerlScript sample 
  14.     PerlScript:  The coolest way to program custom web solutions. 
  15. -->
  16.  
  17. <BODY>
  18. <TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0>
  19. <TR VALIGN=TOP ><TD>
  20. <A HREF="index.htm" NAME="Image"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=5></A><P>
  21. </TD></TR>
  22. </TABLE>
  23. <!-- 
  24.     Microsoft PerlScript sample 
  25. -->
  26.  
  27. HTML says: Hello, world!<br>
  28. <script language="VBScript"><!--
  29. document.write "VBScript says: Hello, world!"
  30. --></script><br>
  31. <script language="PerlScript">
  32. $window->document->write("PerlScript says: Hello, world!");
  33. </script><br>
  34.  
  35. <form method="POST" name="MyForm">
  36.     <p><input type="text" size="32" name="Text1"
  37.     value="Text1 says: Hello, world!"></p>
  38.     <p><input type="button" name="VBSBtnHello"
  39.     value="VBScript"><script language="VBScript"><!--
  40. Sub VBSBtnHello_OnClick
  41.     MyForm.Text1.value =  "VBScript says: Hello, world!"
  42. End Sub
  43. --></script> <input
  44.     type="button" name="PLSBtnHello" value="PerlScript">
  45. <script language="PerlScript">
  46. sub PLSBtnHello_onClick
  47. {
  48.     #$MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
  49.     $window->document->MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
  50. }
  51. sub PLSBtnHello_onclick
  52. {
  53.     PLSBtnHello_onClick
  54. }
  55.     </script></p>
  56. </form>
  57. <HR>
  58. </body>
  59. </html>