Citizen 2.0
Mittwoch, 13. Juni 2007
welcome to my world
$name =~ s/(\b[^\b]+?\b)/\u\L$1/g;
$name =~ s/(-)([\Q$dnumlaute\E])([^\b]*?\b)/$1$upcase{$2}\L$3/g;
$name =~ s/([\Q$umlaute\E])(\w)/$1\l$2/g;
$name =~ s/(^|\s)([\Q$dnumlaute\E](?=\w))/$1$upcase{$2}/g;
$name =~ s/(\w|[\Q$umlaute\E])([\Q$upumlaute\E](?=\w))/ $1$dncase{$2}/g;

Permalink (0 Kommentare)   Kommentieren



testing Web 2.0
finally...

Permalink (1 Kommentar)   Kommentieren