home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _a09afdcf647029964e4d300d122c153d < prev    next >
Encoding:
Text File  |  2000-03-15  |  2.1 KB  |  72 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. </head>
  10.  
  11. <!-- 
  12.     ActiveState PerlScript sample 
  13.     PerlScript:  The coolest way to program custom web solutions. 
  14. -->
  15.  
  16. <TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0>
  17. <TR VALIGN=TOP ><TD>
  18. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=2></A><P>
  19. </TD></TR></TABLE>
  20. <HR>
  21.  
  22.  
  23. <BODY BGCOLOR=#FFFFFF topmargin="8">
  24. <!-- 
  25.     Microsoft PerlScript sample 
  26. -->
  27.  
  28. <font size="5"></font><font size="5">HTML says: Hello, world!<br>
  29. <script language="VBScript"><!--
  30. document.write "VBScript says: Hello, world!"
  31. --></script><br>
  32. <script language="PerlScript">
  33. $window->document->write("PerlScript says: Hello, world!");
  34. </script></font><br>
  35.  
  36. <form method="POST" name="MyForm">
  37.     <p><input type="text" size="32" name="Text1"
  38.     value="Text1 says: Hello, world!"></p>
  39.     <p><font size="5"><input type="button" name="VBSBtnHello"
  40.     value="VBScript"><script language="VBScript"><!--
  41. Sub VBSBtnHello_OnClick
  42.     MyForm.Text1.value =  "VBScript says: Hello, world!"
  43. End Sub
  44. --></script> <input
  45.     type="button" name="PLSBtnHello" value="PerlScript"></font>
  46. <script language="PerlScript">
  47. sub PLSBtnHello_onClick
  48. {
  49.     #$MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
  50.     $window->document->MyForm->Text1->{'value'} =  "PerlScript says: Hello, world!";
  51. }
  52. sub PLSBtnHello_onclick
  53. {
  54.     PLSBtnHello_onClick
  55. }
  56. </script><font size="5"> </font></p>
  57. </form>
  58. <HR>
  59. <p align="center"><font size="5"></font> </p>
  60. <TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600>
  61. <TR VALIGN=TOP>
  62.     <TD ALIGN=RIGHT>
  63.     <FONT FACE="Arial, Helvetica" SIZE="1">
  64.     <B>Best experienced with<BR> 
  65.     <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>
  66.     <BR>Click here to start.</B>
  67.     </FONT></TD>
  68. </TR>
  69. </TABLE>
  70. </body>
  71. </html>
  72.