NAME String::Ident - clean-up string to be used as identifier and in URLs SYNOPSIS my $ident = String::Ident->cleanup('Hello wœrlď!') is($ident,'Hello-woerld') DESCRIPTION clean-up string to be used as identifier and in URLs METHODS cleanup() # replace unicode by ascii $text = unidecode($text); # replace anything basides numbers, letters and dash by dash $text =~ s/[^-A-Za-z0-9]/-/g; # one dash is enough $text =~ s/--+/-/g; # no need to start or end with a dash $text =~ s/-$//g; $text =~ s/^-//g; # maximum length $text = substr($text,0,30); # min length is set to 4 filled in by random letters AUTHOR Jozef Kutej, `' CONTRIBUTORS The following people have contributed to the File::is by committing their code, sending patches, reporting bugs, asking questions, suggesting useful advises, nitpicking, chatting on IRC or commenting on my blog (in no particular order): Andrea Pavlovic LICENSE AND COPYRIGHT This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information.