Revision history for Perl extension Lingua::TR::ASCII
+0.13 Sun Sep 9 04:28:28 2012
+ => Pod and distro fixes.
0.12 Mon Jul 9 18:32:46 2012
=> Text::Unidecode is now required.
Read the module's POD for documentation and examples.
To install this module type the following:
Test::More is needed for running distro tests.
-Copyright (c) 2011 Burak G�rsoy. All rights reserved.
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.12.1 or,
-at your option, any later version of Perl 5 you may have available.
+See the LICENSE file bundled with this distribution.
our @EXPORT = qw( ascii_to_turkish turkish_to_ascii );
Lingua::TR::ASCII - (De)asciify Turkish texts.
If you try to write Turkish with a non-Turkish keyboard (assuming you
-can't change the layout or can't touch-type) this'll result with the
-ascii-fication of the Turkish characters and this actually results
+can't change the layout or can't touch-type) this will result with the
+C<ascii-fication> of the Turkish characters and this actually results
with bogus text since the text you wrote is not literally Turkish anymore
(although the Turkish speaking people and search engines will most
-likely understand it). And in some cases, ascii-fication of some sentences
+likely understand it). And in some cases, ascii-fication of some sentences
might result with funny words. This module tries to mitigate this problem
-with a wrapper around a pre-compiled decison list.
+with a wrapper around a pre-compiled decison list.
The original creator of the decision list states that it was "created based
on 1 million words of Turkish news text using the GPA algorithm". See
=head2 turkish_to_ascii STRING
-Converts the supplied C<STRING> into an ascii equivalent.
+Converts the supplied C<STRING> into an ascii equivalent.
This function is a wrapper around L<Text::Unidecode>.
Lingua::TR::ASCII::Data - Data sets for Lingua::TR::ASCII
- diag sprintf
"[%s] Mismatching chars: %s ", $id, Data::Dumper::Dumper( \@buf );
+ diag sprintf [%s] Mismatching chars: %s, $id, Data::Dumper::Dumper( \@buf );
- diag sprintf
"[%s] Char count mismatch %d != %d ",
+ diag sprintf [%s] Char count mismatch %d != %d,