Using perl Syntax Highlighting
- print qq{
- <td><LABEL class=h4>Campo1:</LABEL></td>
- <td><LABEL class=h4>Campo2:</LABEL></td>
- <td><LABEL class=h4>Campo3:</LABEL></td>
- <td><LABEL class=h4>Campo4:</LABEL></td>
- <td><LABEL class=h4>Campo5:</LABEL></td>
- <td><LABEL class=h4>Campo6:</LABEL></td>
- <td><LABEL class=h4>Campo7:</LABEL></td></tr>
- <tr><td width="83" rowspan="1"><textarea name="textbox" cols="15" rows="30" class="w1399" id="textbox" tabindex="1">
- };
- while (<MYINDEX>){
- print "$_";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Pero estoy intentando hacer lo mismo con otro CGI y explota, da error de sintaxis y el cgi ni siquiera se ejecuta, y esto pasa justo cuando añado las líneas para mostrar el contenido del fichero con el while(), o sea que el problema esta ahí. ¿Tenéis alguna idea de por qué? Aquí va el código:
Using perl Syntax Highlighting
- <LABEL class=hh3><p><strong><center><img src="../../../images/logo1.gif" alt="logo1" width="10" height="10">Secure</center></strong></p>
- <table border="0" summary="tabla" align="center">
- <tr><td><form name="input" action="/cgi-bin/secure.pl" target="_self" method="post">
- <LABEL class=h4><center>Campo1:</center></LABEL></td><td></td>
- <td><LABEL class=h4><center>Campo2:</center></LABEL></td></tr>
- <tr><td><textarea name="usr" cols="20" rows="20" class="w1399" id="usrname" tabindex="1"></textarea></td><td></td>
- <tr><td width="83" rowspan="1"><textarea name="VALORR" cols="15" rows="30" class="w1399" id="VALORR" tabindex="1"></textarea>
- };
- while(<FILE>){
- print "$_";
- }
- print <<ENDHTML
- </textarea></td></tr>
- </td></tr><tr><td colspan="3"><center><input name="Apply" value="apply" type="submit"></center>
- </td></tr>
- </td></tr><tr><td colspan="3"><center><input name="Randomize" value="random" type="submit"></center>
- </td></tr>
- </SELECT>
- </form>
- </table>
- <LABEL class=h3><p><center><center>mailto:xxx@xxx.com</center></strong></p></LABEL>
- ENDHTML
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
