|
|
|
| Cómo cambiar la barra de título en Perl Script |
|
El lenguaje de programación Perl es uno de los lenguajes de programación interpretados más utilizados para la creación de páginas web dinámicas . Utilizando Perl , los programadores pueden alterar las interfaces de usuario de las páginas web de muchas maneras , por ejemplo, mediante el cambio de etiquetas HTML específicas, tales como la etiqueta " " . Perl scripts se ejecutan en el servidor web, por lo que requieren que los datos se envía al servidor web con el fin de alterar dinámicamente elementos de la página . Afortunadamente , Perl ofrece funciones integradas que hacen que la recuperación de la información publicada fácil. Cosas que necesitará <br> editor de texto <br> servidor Web con Perl instalado y configurado correctamente <br> Mostrar más instrucciones <br> 1 <p> Abra un editor de texto y cree un archivo con el nombre " ; perlTitle.pl " . Agregue la línea " tinglado " para el archivo en la primera línea. El " tinglado " especifica la ubicación intérprete de Perl en el caso de que no se puede encontrar . La línea " tinglado " será diferente en función de la instalación específica Perl. Un ejemplo se muestra a continuación : <br> <p> # /usr /local /bin /perl <br> 2 <p> Indique que perlTitle.pl debe generar una página Web ( "text /html" ) imprimiendo el " Content-type " valor "text /html" ( incluir los caracteres " \\ n \\ n" ) . Para imprimir los resultados, utilice el comando "print" Perl e imprimir una etiqueta de cierre de un " <html> " abierto ya la página Web <br> <p> print " Content-type : . Text /html \\ n \\ n " ; print" <html> " ; print" < /html > "; <br> 3 <p> Recuperar los valores de la cadena de consulta. Los valores de " cadena de consulta " son los valores presentados en la página web. En este ejemplo , el valor en la cadena de consulta será el título usado para cambiar la barra de título . Guarde los valores de cadena de consulta en una variable llamada "$ keyValue " declarada entre perlTitle.pl ' s " <html> " y "< /html >" tags: <br> <p> $ KeyValue = ( $ ENV {' QUERY_STRING '} ) ; <br> 4 <p> Utilice la función "split " Perl para dividir la cadena de consulta en dos valores ( $ key y $ valor) , la colocación de la división inmediatamente inferior a la "$ keyValue " ; declaración. En este ejemplo, $ key es el nombre de la cadena de título ( "title ") y $ value es el valor de la cadena de título . Utilice el carácter "=" para dividir la cadena "$ keyValue ": <br> <p> ( $ name , $ value) = split ( /= /, $ keyValue ) ; <br> 5 <p> Uso el comando "print" Perl para imprimir el "$ valor " variable a la página web. Incluya el valor de la variable entre abierto " <title> " y cierre " < /title >" HTML tags : <br> <p> print " <title> $ valor < /title >"; <br> 6 <p> Utilice el comando "print" Perl para imprimir una etiqueta de " <form> " a la página web. Dale la forma que el tipo de método "get " y el valor de la acción " perlTitle.html " . Imprimir un cierre " < /form> " tag para completar el formulario que el usuario deberá presentar : <br> <p> print " <form method='get' action='perlTitle.pl'> " ; print " </form >"; <br> 7 <p> Utilice el comando "print" Perl para imprimir un campo HTML " <input> " a la página web. Dale el campo de entrada del valor "type" "texto", el "nombre " value "title " y cierre el "< /input > " tag . Utilice el comando "print" Perl para imprimir una segunda HTML " <input> " de la página web con un valor de "tipo" en "enviar " . Coloque los dos comandos " impresión" entre el " <form> " y "< /form> " etiquetas y guardar y cerrar perlTitle.pl . Después del paso 7 , perlTitle.pl aparecerá como se muestra a continuación : <br> <p> # /usr /local /bin /perlprint " Content-type : text /html \\ n \\ n"; print " <html> ! ; " keyValue $ = ( $ ENV {' QUERY_STRING '} ) ; ( $ name , $ value) = split ( /= /, $ keyValue ) ; print" <title> $ valor < /title> " ; print " <form method='get' action='perlTitle.pl'> " ; print " <input type='text' name='title'> < /input >"; print " <input type='submit'> " ; print " </form >"; print " < /html >"; <br> 8 <p> perlTitle abierto . pl en un navegador web. Escriba un valor en el campo de entrada, haga clic en el botón de envío , y comprobar que las actualizaciones del título de la página Web correctamente. <br> <br>
<div class=ad2><script language='javascript' src='/ad/201310/4.js'></script></div>
</div>
</td>
</tr>
</table>
<table width="95%" height="1" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DEE7EE">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="91%" height="52" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="51%"><p>Previous ： <a class='LinkPrevArticle' href='/Programacion/perl-programming/93218.html' >Cómo encontrar caracteres chinos utilizando expresiones regulares en Perl </a></li></p></td>
</tr>
<tr>
<td width="49%"> next ： <a class='LinkNextArticle' href='/Programacion/perl-programming/93220.html' >¿Cómo obligar a cualquier archivo en un UTF -8 en Perl </a></li></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="770" height="246" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="375" height="246" valign="top"><table width="380" border="0" cellpadding="0" cellspacing="0" class="bian">
<tr>
<td height="244" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img_dm/danmai_r4_c04 -.jpg" bgcolor="#DBE3EE">
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm"> Artículos relacionados </td> </tr>
</table>
<table width="95%" height="209" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td height="201"><table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93389.html" title="Cómo instalar Perl en Windows XP " target="_self">Cómo instalar Perl en Windows XP </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93234.html" title="Cómo instalar cPanel y Perl " target="_self">Cómo instalar cPanel y Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93275.html" title="Cómo utilizar variables en Perl Regex para Ubuntu " target="_self">Cómo utilizar variables en Perl Regex para Ubuntu </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93226.html" title="Cómo depurar Perl en Windows " target="_self">Cómo depurar Perl en Windows </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93224.html" title="Cómo eliminar un nodo en Perl XML Ramita " target="_self">Cómo eliminar un nodo en Perl XML Ramita </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93335.html" title="Cómo convertir datos binarios a un decimal en Perl " target="_self">Cómo convertir datos binarios a un decimal en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93413.html" title="Cómo al perfil de los programas Perl " target="_self">Cómo al perfil de los programas Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93289.html" title="Cómo comprobar si una cadena existe en Perl " target="_self">Cómo comprobar si una cadena existe en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93343.html" title="Cómo encontrar el tamaño de archivo en Perl " target="_self">Cómo encontrar el tamaño de archivo en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93400.html" title="Cómo convertir archivos planos a XML " target="_self">Cómo convertir archivos planos a XML </a></td></tr><tr></tr></table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="20" valign="top"></td>
<td width="375" valign="top"><table width="380" border="0" cellpadding="0" cellspacing="0" class="bian">
<tr>
<td height="244" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img_dm/danmai_r4_c04 -.jpg" bgcolor="#DBE3EE">
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm">Artículos destacados </td> </tr>
</table>
<table width="95%" height="207" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td height="199"><table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/java-programming/89214.html" title="Tres beneficios principales de ENUM " target="_self">Tres beneficios principales de ENUM </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/php-mysql-programming/91781.html" title="PHP Transferencia de Valores " target="_self">PHP Transferencia de Valores </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/86951.html" title="Cómo crear un Grupo de Redo Log " target="_self">Cómo crear un Grupo de Redo Log </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/visual-basics-programming/94624.html" title="¿Qué es una importación VB.NET " target="_self">¿Qué es una importación VB.NET </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93289.html" title="Cómo comprobar si una cadena existe en Perl " target="_self">Cómo comprobar si una cadena existe en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/java-programming/89151.html" title="Cómo integrar Java en Flex " target="_self">Cómo integrar Java en Flex </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/php-mysql-programming/92251.html" title="Cómo reemplazar una doble línea nueva en PHP " target="_self">Cómo reemplazar una doble línea nueva en PHP </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/visual-basics-programming/95319.html" title="Cómo guardar la lista de elementos de cuadro en un objeto Array " target="_self">Cómo guardar la lista de elementos de cuadro en un obj…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/88755.html" title="Cómo hacer un ordenamiento de burbuja " target="_self">Cómo hacer un ordenamiento de burbuja </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/visual-basics-programming/95581.html" title="Cómo utilizar Pivot Table Lógica " target="_self">Cómo utilizar Pivot Table Lógica </a></td></tr><tr></tr></table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="980" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=980 bgColor=#36506e height=90>
<tr>
<td class=bs height=90 align=middle>Copyright © Conocimientos Informáticos http://ordenador.wingwit.com
<script language='javascript' src='/ad/201310/1.js'></script></td>
</tr>
</table>
</div>
</body>
</html>
| | |
