/[webpac]/trunk2/my_unac_string.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk2/my_unac_string.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 320 - (hide annotations)
Sun Apr 18 00:57:39 2004 UTC (19 years, 11 months ago) by dpavlin
Original Path: trunk/my_unac_string.pm
File size: 422 byte(s)
implement my_unac_string function, and my_unac_filter option in global.conf
which you *REALLY* want to use if you don't have only clean 7-bit characters 
in your data

1 dpavlin 164 # Alternative implementation for unac_string which supports charasters in
2     # Croatian language which isn't really accented (ð) but needs to be coverted
3     # to unaccented equivalent (d)
4    
5 dpavlin 320 use Text::Unaccent 1.02; # 1.01 won't compile on my platform,
6    
7     sub my_unac_string($$) {
8 dpavlin 164 my $charset = shift || return;
9     my $string = shift || return;
10 dpavlin 320 $string = unac_string($charset,$string);
11     $string =~ tr/ðÐ/dD/;
12 dpavlin 164 return $string;
13     }
14    
15     1;

Properties

Name Value
cvs2svn:cvs-rev 1.2

  ViewVC Help
Powered by ViewVC 1.1.26