Foro - Perl en Español

por **danimera** » 2017-12-10 17:56 @789

Necesito un código mejor que el mio para crear URL semánticas, ya que el que tengo tiene problemas con los acentos y la letra ñ, y además me quedan en mayúsculas, por ejemplo:

titulo: El niño más hermoso en acción
me queda: EL-NI-O-MAS-HERMOSO-EN-ACCI-N

Este es mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub urlConverter {
        my $selft = shift;
        my $titulo = uc(shift);
 
 
        $titulo = textoEncoded($titulo);
 
        $titulo =~ tr/á&eacute;&iacute;&oacute;úñÁÉÍÓÚÑÂÊÎÔÛâêîôûÄËÏÖÜäëïöü/AEIOUNAEIOUNAEIOUAEIOUAEIOUAEIOU/;
        $titulo =~ s/\W/-/g;
        $titulo =~ s/-{2,}/-/g;
        $titulo =~ s/^(-)(.*)(-)$/$2/;
 
        return  $titulo ;
}
sub textoEncoded {
        my $texto = shift;
 
        $texto = decode_entities($texto);
        utf8::decode($texto);
 
        return $texto;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias.

use v5.26;
use utf8;
 
my $x = " El niño más hermoso en  acción ";
 
$x =~ tr[áéíóúñÁÉÍÓÚÑÂÊÎÔÛâêîôûÄËÏÖÜäëïöü]
        [aeiounAEIOUNAEIOUaeiouAEIOUaeiou];
$x =~ tr/ /-/s;         # la opción /s quita los caracteres duplicados
$x =~ s/^-|-$//g;       # quita el inicial y final
 
say $x;         # El-nino-mas-hermoso-en-accion
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **danimera** » 2017-12-11 07:39 @360

¿Eso me soluciona el problema de acentos, tildes y'ñ'? Solo por saber, aún no he probado.

Foro - Perl en Español

Crear url semánticas y amigables

Crear url semánticas y amigables

Publicidad

Re: Crear url semánticas y amigables

Re: Crear url semánticas y amigables

¿Quién está conectado?