Text::TrimViewWidth::UTF8 - Perl extension for Triming UTF-8 text by the number of the columns of terminals and mobile phones.
use Text::VisualWidth::UTF8; my $length = Text::VisualWidth::UTF8::width($str); my $str = Text::VisualWidth::UTF8::trim($str, 20);
Takaaki Mizuno, <email@example.com>
Copyright (C) 2007 by Takaaki Mizuno
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.