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";
You are so great. Thanks guys!
What do you think? should I put those in a Template Plugin module and
push it to the CPAN?
Any name suggestions?
cheers
_______________________________________________
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/
