i had to write a “dasherize” function to generate SEO friendly url and so i found the power of unicode normalization…<\/p>\n
use warnings; my $string = 'accentate \u00ab\u00e0\u00e8\u00ec\u00f2\u00f9\u00bb e “euro” (\u00a4\u00e7) {\u00b9\u00b2\u00b3} [prova]'; binmode(STDOUT, \":utf8\");<\/p>\n print \"$string\\n\";<\/p>\n $string = NFKD($string); $string =~ s\/[^a-z0-9]+\/-\/gi; print \"$string\\n\"; and here is the output:<\/p>\n i had to write a “dasherize” function to generate SEO friendly url and so i found the power of unicode normalization… #!\/usr\/bin\/perl use warnings; use strict; use utf8; use Unicode::Normalize; my $string = ‘accentate \u00ab\u00e0\u00e8\u00ec\u00f2\u00f9\u00bb e “euro” (\u00a4\u00e7) {\u00b9\u00b2\u00b3} [prova]’; my $length = 200; binmode(STDOUT, “:utf8”); print “$string\\n”; $string = NFKD($string); $string =~ s\/\\pM\/\/og; $string … Continue reading dasherize<\/span> #!\/usr\/bin\/perl<\/p>\n
\nuse strict;
\nuse utf8;
\nuse Unicode::Normalize;<\/p>\n
\nmy $length = 200;<\/p>\n
\n$string =~ s\/\\pM\/\/og;<\/p>\n
\n$string =~ s\/^(.{1,$length}).*\/\\L$1\/;
\n$string =~ s\/-[^-]*?$\/\/;<\/p>\n
\n<\/code><\/p>\nfabio@gnu64:~\/tmp$ .\/dasherize
\naccentate \u00ab\u00e0\u00e8\u00ec\u00f2\u00f9\u00bb e “euro” (\u00a4\u00e7) {\u00b9\u00b2\u00b3} [prova]
\naccentate-aeiou-e-euro-c-123-prova<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"