fig19_09.txt

来自「PERL语言资料 可以用于PERL程序设计」· 文本 代码 · 共 28 行

<form method="post" action="/cgi-bin/fig19_09.pl" 
      enctype="application/x-www-form-urlencoded">
<table border="1">
   <caption><h3>Current Bids</h3></caption>
   <tr><th>Product</th><th>Bid</th><th>Result</th></tr>
   <tr><td>Perl How to Program</td><td>$2000.00</td><td>OK</td>
       <input type="hidden" name="Perl How to Program" 
              value="2000">
       <input type="hidden" name="bid" 
              value="Perl How to Program">
   </tr>
   <tr><td>C How to Program, Third Edition</td><td>$70.00</td>
       <td>OK</td>
       <input type="hidden" 
              name="C How to Program, Third Edition" 
	      value="70">
       <input type="hidden" name="bid" 
              value="C How to Program, Third Edition">
   </tr>
   <tr><td>C++ How to Program, Third Edition<td>$50.00</td>
       <td>Too low</td>
   </tr>
   <tr><td>Total</td><td>$2070.00</td>
       <td><input type="submit" name="Buy It" value="Buy It" />
       </td>
   </tr>
</table>
</form>