Mostrando Codigo - Perl & Cgi
Pasar de minusculas a mayusculas
Esta seria la forma de convertir o pasar textos de minusculas a mayusculas utilizando expresiones regulares.
CODIGO
// Codigo ofrecido por Tutores.org
#!c:/perl/bin/perl.exe
print "Content-type: text/html ";
$texto = 'Este SeRiA el TexTO';
$texto =~ tr/[a-z]/[A-Z]/;
print "<html><h1>$texto</h1></html> ";
exit;
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Pasar de minusculas a mayusculas" href="http://www.tutores.org/codigo/1483/" target="_blank">Pasar de minusculas a mayusculas</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Pasar de minusculas a mayusculas" href="http://www.tutores.org/codigo/1483/" target="_blank">Pasar de minusculas a mayusculas</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS