Category Archives: /me

Vivere alla Jack Sparrow

/me

“Codice etico piratesco per bricconi e cercatori di sapienze e tesori”

scritto dal caro amico Enrico Impalà… da non perdere!

“Figliolo, sono giunti, in questi ultimi tempi, momenti straordinariamente difficili, percorsi da uomini egoisti, amanti del denaro, vanitosi, orgogliosi, bestemmiatori, ribelli ai genitori, ingrati, senza religione, senza amore, sleali, maldicenti, intemperanti, intrattabili, nemici del bene, traditori, sfrontati, accecati dall’orgoglio, attaccati ai piaceri più che a Dio, con la parvenza della pietà, mentre ne hanno rinnegata la forza interiore. Guardati bene da costoro! Te lo dico con tutto il cuore figliolo! Io so bene di cosa parlo perché sono uno di loro.”

(La pagina facebook del libro)

12491986_1653264098260679_1543202925795602564_o

From Mississipi to Thames – Steve Angarthal

/me

Il nuovo progetto di Steve è tutto blues!

“Un viaggio musicale alla riscoperta di un genere musicale che nel ‘900 ha rivoluzionato la musica moderna dando ispirazione alla nascita e allo sviluppo di quasi tutti gli stili di musica popolare: il blues, e di un momento altrettanto importante nella storia della musica; la scena londinese degli anni 60/70.”

Featuring Americo William Costantino on drums and Daniele Petrosillo on bass

dasherize

/me, , ,

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 «àèìòù» e “euro” (¤ç) {¹²³} [prova]';
my $length = 200;

binmode(STDOUT, ":utf8");

print "$string\n";

$string = NFKD($string);
$string =~ s/\pM//og;

$string =~ s/[^a-z0-9]+/-/gi;
$string =~ s/^(.{1,$length}).*/\L$1/;
$string =~ s/-[^-]*?$//;

print "$string\n";

and here is the output:

fabio@gnu64:~/tmp$ ./dasherize
accentate «àèìòù» e “euro” (¤ç) {¹²³} [prova]
accentate-aeiou-e-euro-c-123-prova