[Catalyst] create search engine friendly uri from string

[Peter Karman]

Octavian Rasnita wrote on 12/16/2008 10:14 AM:
> From: "Peter Karman" <peter at peknet.com>
>> or Search::Tools::Transliterate
> 
> I have tried:
> 
> use strict;
> use Search::Tools::Transliterate;
> use utf8;
> 
> my $tr = Search::Tools::Transliterate->new;
> $tr->ebit(0);
> print $tr->convert("ăşţâîĂŞŢÂÎ????");
> 
> #It prints:
> astâîASTÂÎ????
> 
> I want to print ai instead of âî and AI instead of ÂÎ. Am I using
> $tr->ebit correctly?
> 

no. you must set ebit in new(), not after instantiation. I've added a
note to the docs to emphasize that.

my $tr = Search::Tools::Transliterate->new( ebit => 0 );

> The latest 4 chars are 4 new UTF-8 chars in romanian language (U+0218,
> U+0219, U+021A, U+021B). Can they be transliterated?
> They are şŞţŢ but with a comma below, and not with a sedila. Can they be
> displayed as sStT?

sure. Just add them via the map() method. I believe that's documented
with an example, but here's another:

---------------------------
#!/usr/bin/perl
use strict;
use Search::Tools::Transliterate;
use utf8;

binmode STDERR, ':utf8';

my $string = "ăşţâîĂŞŢÂÎ";

# new romanian utf8 chars
$string .= "\x{0218}";
$string .= "\x{0219}";
$string .= "\x{021A}";
$string .= "\x{021B}";

my $tr = Search::Tools::Transliterate->new(ebit=>0);
$tr->map->{"\x{0218}"} = 's';
$tr->map->{"\x{0219}"} = 'S';
$tr->map->{"\x{021A}"} = 't';
$tr->map->{"\x{021B}"} = 'T';

print STDERR $string . "\n";
print STDERR $tr->convert($string) . "\n";

------------------

I added the above code as part of a new test and just uploaded 0.19 to
cpan.

If you have suggestions for permanent additions/changes to the character
mapping file, please open a RT ticket and I'll see that they get
reviewed for a future release.

Thanks for the feedback.


-- 
Peter Karman  .  peter at peknet.com  .  http://peknet.com/