On Dec 15, 2008, at 1:23 PM, Moritz Onken wrote:
Am 15.12.2008 um 21:53 schrieb Johannes Plunien:
On 15.12.2008, at 21:22, Jim Spath wrote:
You might also want to add these two to the end:
=~ s/--+/-/g;
=~ s/-$//g;
Scott McWhirter wrote:
$str =~ s{\W}{}g;
$str = lc($str);
$str =~ s{\s+}{-}g;
My not very elegant, but working solution:
my $str = " Beta Launch Invites: Kwyno Brings The Web Into Your
IM And (Soon) SMS Inboxes ";
$str =~ s/^\s+|\s+$//g;
$str =~ s/\W/ /g;
$str =~ s/\s{1,}/ /g;
$str =~ s/\s/-/g;
$str = lc($str);
print "$str\n";
Just a caveat that should be in the doc you end up with if not
possible in the code. URIs are supposed to be unique to a resource.
Titles of articles and pages are not (necessarily). The end user/dev
will have to check for duplicates against the data and append a -II
or -2, and so on.
-Ashley
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/