脚本语言

Base64 javascript 版

JavaScript代码
  1. <script language='javascript' src='Base642.js'></script>  
  2. <SCRIPT LANGUAGE="JavaScript">  
  3. <!--  
  4.     var b = new Base64();  
  5.     de = b.Decode64("aHR0cDovL3d3dy5pYnJpbmcuc2UvcGhwLnBocA==");  
  6.     alert(de);  
  7. //-->  
  8. </SCRIPT>  

 

Base642.js 见附件

Read More

脚本语言

PHP的输入过滤器

PHP代码
  2. $result = filter_input(INPUT_GET, ‘email’, FILTER_VALIDATE_EMAIL);  
  3. var_dump($result);  
  4. ?>  

简介

This extension serves for validating and filtering data coming usually from some insecure source such as user input.

该扩展用于检验和过滤来自不安全途径的数据，比如说用户的输入。

The following filters currently exist, be sure to read the Filter Constants section for information that describes the behavior of each constant:

下边这些过滤器是当前已经有的，请阅读过滤器常量小节查看各个常量的行为描述。

表 1. Existing filters 

<table border="1" class="CALSTABLE">
  <colgroup> <col></col> <col></col> <col></col> <col></col> </colgroup> <tr>
    <th>
      ID
    </th>
    
    <th>
      Name
    </th>
    
    <th>
      Options
    </th>
    
    <th>
      Flags
    </th>
    
    <th>
      Description
    </th>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_INT</strong></tt>
    </td>
    
    <td>
      "int"
    </td>
    
    <td>
      <code class="parameter">min_range</code>, <code class="parameter">max_range</code>
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_ALLOW_OCTAL</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ALLOW_HEX</strong></tt>
    </td>
    
    <td>
      Validates value as integer, optionally from the specified range.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_BOOLEAN</strong></tt>
    </td>
    
    <td>
      "boolean"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Returns <tt class="constant"><strong>TRUE</strong></tt> for "1", "true", "on" and "yes", <tt class="constant"><strong>FALSE</strong></tt> for "0", "false", "off", "no", and "", <tt class="constant"><strong>NULL</strong></tt> otherwise.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_FLOAT</strong></tt>
    </td>
    
    <td>
      "float"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Validates value as float.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_REGEXP</strong></tt>
    </td>
    
    <td>
      "validate_regexp"
    </td>
    
    <td>
      <code class="parameter">regexp</code>
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Validates value against <code class="parameter">regexp</code>, a <a href="ref.pcre.html">Perl-compatible</a> regular expression.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_URL</strong></tt>
    </td>
    
    <td>
      "validate_url"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_SCHEME_REQUIRED</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_HOST_REQUIRED</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_PATH_REQUIRED</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_QUERY_REQUIRED</strong></tt>
    </td>
    
    <td>
      Validates value as URL, optionally with required components.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_EMAIL</strong></tt>
    </td>
    
    <td>
      "validate_email"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Validates value as e-mail.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_VALIDATE_IP</strong></tt>
    </td>
    
    <td>
      "validate_ip"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_IPV4</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_IPV6</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_NO_PRIV_RANGE</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_NO_RES_RANGE</strong></tt>
    </td>
    
    <td>
      Validates value as IP address, optionally only IPv4 or IPv6 or not from private or reserved ranges.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_STRING</strong></tt>
    </td>
    
    <td>
      "string"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_NO_ENCODE_QUOTES</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_STRIP_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_STRIP_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_AMP</strong></tt>
    </td>
    
    <td>
      Strip tags, optionally strip or encode special characters.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_STRIPPED</strong></tt>
    </td>
    
    <td>
      "stripped"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Alias of "string" filter.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_ENCODED</strong></tt>
    </td>
    
    <td>
      "encoded"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_STRIP_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_STRIP_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_HIGH</strong></tt>
    </td>
    
    <td>
      URL-encode string, optionally strip or encode special characters.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_SPECIAL_CHARS</strong></tt>
    </td>
    
    <td>
      "special_chars"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_STRIP_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_STRIP_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_HIGH</strong></tt>
    </td>
    
    <td>
      HTML-escape <tt class="literal">'"<>&</tt> and characters with ASCII value less than 32, optionally strip or encode other special characters.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_UNSAFE_RAW</strong></tt>
    </td>
    
    <td>
      "unsafe_raw"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_STRIP_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_STRIP_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_LOW</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_HIGH</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ENCODE_AMP</strong></tt>
    </td>
    
    <td>
      Do nothing, optionally strip or encode special characters.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_EMAIL</strong></tt>
    </td>
    
    <td>
      "email"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Remove all characters except letters, digits and <tt class="literal">!#$%&'*+-/=?^_`{|}~@.[]</tt>.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_URL</strong></tt>
    </td>
    
    <td>
      "url"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Remove all characters except letters, digits and <tt class="literal">$-_.+!*'(),{}|\\^~[]`<>#%";/?:@&=</tt>.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_NUMBER_INT</strong></tt>
    </td>
    
    <td>
      "number_int"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Remove all characters except digits and <tt class="literal">+-</tt>.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_NUMBER_FLOAT</strong></tt>
    </td>
    
    <td>
      "number_float"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <tt class="constant"><strong>FILTER_FLAG_ALLOW_FRACTION</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ALLOW_THOUSAND</strong></tt>, <tt class="constant"><strong>FILTER_FLAG_ALLOW_SCIENTIFIC</strong></tt>
    </td>
    
    <td>
      Remove all characters except digits, <tt class="literal">+-</tt> and optionally <tt class="literal">.,eE</tt>.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_SANITIZE_MAGIC_QUOTES</strong></tt>
    </td>
    
    <td>
      "magic_quotes"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      Apply <a href="function.addslashes.html"><strong class="function">addslashes()</strong></a>.
    </td>
  </tr>
  
  <tr>
    <td>
      <tt class="constant"><strong>FILTER_CALLBACK</strong></tt>
    </td>
    
    <td>
      "callback"
    </td>
    
    <td>
      &nbsp;
    </td>
    
    <td>
      <a href="language.pseudo-types.html#language.types.callback"><strong class="type">callback</strong></a> function or method
    </td>
    
    <td>
      Call user-defined function to filter data.
    </td>
  </tr>
</table>

可以通过php.ini查看是否支持filter.

filter 

  <td class="v">
    enabled
  </td>
</tr>

<tr>
  <td class="e">
    Revision
  </td>
  
  <td class="v">
    $Revision: 1.52.2.39 $
  </td>
</tr>
Input Validation and Filtering 

  <th>
    Local Value
  </th>
  
  <th>
    Master Value
  </th>
</tr>

<tr>
  <td class="e">
    filter.default
  </td>
  
  <td class="v">
    unsafe_raw
  </td>
  
  <td class="v">
    unsafe_raw
  </td>
</tr>

<tr>
  <td class="e">
    filter.default_flags
  </td>
  
  <td class="v">
    <em>no value</em>
  </td>
  
  <td class="v">
    <em>no value</em>
  </td>
</tr>
Directive

使用：
参考本文前边的例子，用 ?email=email@host.com 和 ?email=invalidemail.address 测试。

脚本语言

php interface

PHP代码
  2. interface IA {  
  3.     public function a();  
  4.     public function b();  
  5. }  
  6. class Test implements IA {  
  7.     public function a() {  
  8.         echo ‘aa’;  
  9.     }  
  10.     public function b() {  
  11.         echo ‘bb’;  
  12.     }  
  13.     public function c() {  
  14.         echo ‘cc’;  
  15.     }  
  16. }  
  17.   
  18. class Test2 extends Test {  
  19.     public function a() {  
  20.         echo ‘aaaa!!’;  
  21.     }  
  22. }  
  23. $o = new Test2();  
  24. $o->a();  
  25. ?>  
脚本语言

玩PHP源文件－把LOGO的gif文件转成.h文件中的数据

PHP代码
  2. // 将GIF转换为C语言中的H文件  
  3. $filename = "logo.gif";  
  4. $fp = fopen($filename, "rb");  
  5. $buffer = fread($fp, filesize($filename));  
  6. fclose($fp);  
  7. $len = strlen($buffer);  
  8. $fp = fopen("mylogo.h", "wb");  
  9. fwrite($fp, "unsigned char php_logo[] = {");  
  10. for ($i=0; $i<=$len; $i++) {  
  11.     if($i % 10 == 0) {  
  12.         fwrite($fp, "\n\t\t");  
  13.     }  
  14.     if($i == $len) {  
  15.         $str = str_pad(ord(substr($buffer, $i, 1)), 3, " ", STR_PAD_LEFT);  
  16.     } else {  
  17.         $str = str_pad(ord(substr($buffer, $i, 1)), 3, " ", STR_PAD_LEFT) . ", ";  
  18.     }  
  19.     fwrite($fp, $str);  
  20. }  
  21. fwrite($fp, " };\n");  
  22. fclose($fp);  
  23. ?>  
脚本语言

mysql 备份的PHP脚本

PHP代码
  2.     // 备份数据库  
  3.     function sqldumptable($table, $fp=0) {  
  4.         $tabledump = "DROP TABLE IF EXISTS `$table`;\n";  
  5.         $tabledump .= "CREATE TABLE `$table` (\n";  
  6.   
  7.         $firstfield=1;  
  8.   
  9.         $fields = mysql_query("SHOW FIELDS FROM `$table`");  
  10.         while ($field = mysql_fetch_array($fields)) {  
  11.             if (!$firstfield) {  
  12.                 $tabledump .= ",\n";  
  13.             } else {  
  14.                 $firstfield=0;  
  15.             }  
  16.             $tabledump .= "   `$field[Field]` $field[Type]";  
  17.             if (!emptyempty($field["Default"])) {  
  18.                 if($field['Default']!=‘CURRENT_TIMESTAMP’ ) $field['Default'] = "'{$field['Default']}’";  
  19.                 $tabledump .= " DEFAULT $field[Default]";  
  20.             }  
  21.             if ($field['Null'] != "YES") {  
  22.                 $tabledump .= " NOT NULL";  
  23.             }  
  24.             if ($field['Extra'] != "") {  
  25.                 $tabledump .= " $field[Extra]";  
  26.             }  
  27.         }  
  28.         mysql_free_result($fields);  
  29.       
  30.         $keys = mysql_query("SHOW KEYS FROM `$table`");  
  31.         while ($key = mysql_fetch_array($keys)) {  
  32.             $kname=$key['Key_name'];  
  33.             if ($kname != "PRIMARY" and $key['Non_unique'] == 0) {  
  34.                 $kname="UNIQUE|$kname";  
  35.             }  
  36.             if(!is_array($index[$kname])) {  
  37.                 $index[$kname] = array();  
  38.             }  
  39.             $index[$kname][] = $key['Column_name'];  
  40.         }  
  41.         mysql_free_result($keys);  
  42.   
  43.         while(list($kname, $columns) = @each($index)) {  
  44.             $tabledump .= ",\n";  
  45.             $colnames=implode($columns,",");  
  46.   
  47.             if ($kname == "PRIMARY") {  
  48.                 $tabledump .= "   PRIMARY KEY ($colnames)";  
  49.             } else {  
  50.                 if (substr($kname,0,6) == "UNIQUE") {  
  51.                     $kname=substr($kname,7);  
  52.                 }  
  53.                 $tabledump .= "   KEY $kname ($colnames)";  
  54.             }  
  55.         }  
  56.   
  57.         $tabledump .= "\n);\n\n";  
  58.         if ($fp) {  
  59.             fwrite($fp,$tabledump);  
  60.         } else {  
  61.             echo $tabledump;  
  62.         }  
  63.   
  64.         $rows = mysql_query("SELECT * FROM `$table`");  
  65.         $numfields = mysql_num_fields($rows);  
  66.         while ($row = mysql_fetch_array($rows)) {  
  67.             $tabledump = "INSERT INTO `$table` VALUES(";  
  68.   
  69.             $fieldcounter=-1;  
  70.             $firstfield=1;  
  71.             while (++$fieldcounter<$numfields) {  
  72.                 if (!$firstfield) {  
  73.                     $tabledump.=", ";  
  74.                 } else {  
  75.                     $firstfield=0;  
  76.                 }  
  77.   
  78.                 if (!isset($row[$fieldcounter])) {  
  79.                     $tabledump .= "NULL";  
  80.                 } else {  
  81.                     $tabledump .= "’".mysql_escape_string($row[$fieldcounter])."’";  
  82.                 }  
  83.             }  
  84.   
  85.             $tabledump .= ");\n";  
  86.   
  87.             if ($fp) {  
  88.                 fwrite($fp,$tabledump);  
  89.             } else {  
  90.                 echo $tabledump;  
  91.             }  
  92.         }  
  93.         mysql_free_result($rows);  
  94.         fwrite($fp,"\n\n\n");  
  95.     }  
  96.   
  97. ?>  
脚本语言

Javascript中的prototype的一个简单例子

XML/HTML代码
  1. >  
  2. <html xmlns="http://www.w3.org/1999/xhtml">  
  3.  <head>  
  4.   <title> new document title>  
  5.   <meta name="generator" content="editplus" />  
  6.   <meta name="author" content="" />  
  7.   <meta name="keywords" content="" />  
  8.   <meta name="description" content="" />  
  9.  head>  
  10.   
  11.  <body>  
  12.   <script type="text/javascript">  
  13.   
  14.     var call = function () {  
  15.         //this.a = function (a) { alert(a); };  
  16.         this.num = 134;  
  17.     }  
  18.     call.prototype.a = function (a) { alert(a); };  
  19.     var v = new call;  
  20.     v.a(v.num);  
  21.   //–>  
  22.   script>  
  23.  body>  
  24. html>  
脚本语言

Javascript下的伪OOP用法测试

JavaScript代码
  1. "text/javascript">  
  3.   
  4. // 方法一  
  5. var cellphone = {  
  6.     number: 13684042440,  
  7.     dial: function  () {  
  8.           
  9.     }  
  10. };  
  11.   
  12. // 方法二  
  13. var cellphone = new Object();  
  14. cellphone.number = 13484042440;  
  15. cellphone.dial = function () {  
  16.     alert("Calling "+this.number);  
  17. }  
  18.   
  19. cellphone.dial();  
  20.   
  21. // 给已有的类追加方法  
  22. String.prototype.trim = function () {  
  23.     var tmp = this.replace(/^\s+/,”);  
  24.     tmp = tmp.replace(/\s+$/,”);  
  25.     return tmp;  
  26. }  
  27.   
  28. var str = "  sfdfd  sfsd   ";  
  29. str2=str.trim();  
  30. alert("’"+str+"’");  
  31. alert("’"+str2+"’");  
  32.   
  33. function Beesn() {  
  34.     this.member = new Array(‘Kevin’,‘Vonsk’,‘Edison’,‘Michael’,‘Whl’),  
  35.     this.list = function () {  
  36.         for(var i=0;i<this.member.length;i++) {  
  37.             alert(this.member[i]);  
  38.         }  
  39.     },  
  40.     this.show = function () {  
  41.         this.member = this.member.shift();  
  42.         alert(this.member);  
  43.         //for(i in this.member) {  
  44.         //  alert(this.member[i]);  
  45.         //}  
  46.     }  
  47. }  
  48. var our = new Beesn;  
  49. our.show();  
  50.   
  51.   
  52. //arguments 对象的用法。  
  53. function ArgTest(a, b, c){  
  54.    var i, s = "The ArgTest function expected ";  
  55.    var numargs = arguments.length;     // 获取被传递参数的数值。  
  56.    var expargs = ArgTest.length;       // 获取期望参数的数值。  
  57.    if (expargs < 2)  
  58.        s += expargs + " argument. ";  
  59.    else  
  60.        s += expargs + " arguments. ";  
  61.    if (numargs < 2)  
  62.        s += numargs + " was passed.";  
  63.    else  
  64.        s += numargs + " were passed.";  
  65.     s += "\n\n"  
  66.    for (i =0 ; i < numargs; i++){      // 获取参数内容。  
  67.     s += "   Arg " + i + " = " + arguments[i] + "\n";  
  68.     }  
  69.    return(s);                          // 返回参数列表。  
  70. }  
  71. alert( ArgTest(1,our,our) );  
  72.   
  73. // caller demo  
  74. function callerDemo() {  
  75.     if (callerDemo.caller) {  
  76.          var a= callerDemo.caller.toString();  
  77.          alert(a);  
  78.      } else {  
  79.          alert("this is a top function");  
  80.      }  
  81. }  
  82. function handleCaller() {  
  83.      callerDemo();  
  84. }  
  85. callerDemo();  
  86.   
  87. //callee可以打印其本身  
  88. function calleeDemo() {  
  89.      alert(arguments.callee);  
  90. }  
  91. //用于验证参数  
  92. function calleeLengthDemo(arg1, arg2) {  
  93.     if (arguments.length==arguments.callee.length) {  
  94.          window.alert("验证形参和实参长度正确！");  
  95.         return;  
  96.      } else {  
  97.          alert("实参长度：" +arguments.length);  
  98.          alert("形参长度： " +arguments.callee.length);  
  99.          aert(calleeLengthDemo.length);  
  100.      }  
  101. }  
  102. //递归计算  
  103. var sum = function(n){  
  104.   if (n <= 0)                          
  105.   return 1;  
  106.   else  
  107.     return n + arguments.callee(n – 1);  
  108. }  
  109. calleeLengthDemo(1,2,3);  
  110.   
  111. var vehicle=Class.create();  
  112. vehicle.prototype.initialize= function(type)  
  113. {  
  114.         this.type=type;  
  115. }  
  116. vehicle.prototype.showSelf= function()  
  117. {  
  118.       alert("this vehicle is "+ this.type);  
  119. }  
  120. var Class = {  
  121.    create: function() {  
  122.     returnfunction() {  
  123.       this.initialize.apply(this, arguments);  
  124.      }  
  125.    }  
  126. }  
  127. var moto=new vehicle("Moto");  
  128. moto.showSelf();  
  129.   
  130.   
  131. // 测试extend  
  132. Object.extend = function(destination, source) {  
  133.   for (property in source) {  
  134.     destination[property] = source[property];  
  135.   }  
  136.   return destination;  
  137. }  
  138. Object.prototype.extend = function(object) {  
  139.   return Object.extend.apply(this, [this, object]);  
  140. }  
  141.   
  142. var obj = new Object();  
  143. obj.extend({  
  144.     f1: function () {  
  145.         alert(‘f1′);  
  146.     },  
  147.     f2: function () {  
  148.         alert(‘f2′);  
  149.     }  
  150. });  
  151.   
  152. obj.f2();  
  153.   
  154.   
  155. String.prototype.isEmail = function () {  
  156.     return /^[0-9a-z\-_\.]+@[0-9a-z\-_\.]+\.[a-z]+$/i.test(this);  
  157. };  
  158.   
  159.   
  160. var str = "combbs@msn.com";  
  161. alert(  str.isEmail()  );  
  162.   
  163. //alert(/^[0-9a-z\-_\.]+@[0-9a-z\-_\.]+\.[a-z]+$/i.test(str));  
  164. //–>  
  165.   

测试方法：

请一段一段的测试。测试一段时，先把别的行注释。

脚本语言

Perl 的测试代码

Java代码
  1. #!E:/Perl/bin/perl.exe  
  2. ##  
  3. ##  printenv — demo CGI program which just prints its environment  
  4. ##  
  5.   
  6. print "Content-type: text/html; charset=iso-8859-1\n\n";  
  7. foreach $var (sort(keys(%ENV))) {  
  8.     $val = $ENV{$var};  
  9.     $val =~ s|\n|\\n|g;  
  10.     $val =~ s|"|\\"|g; 
  11.     print "${var}=\"${val}\"\n";  
  12. }