kivitendo/SL/Iconv.pm @ f24968aa
| a200453a | Moritz Bunkus | package SL::Iconv;
|
||
use Text::Iconv;
|
||||
use SL::Common;
|
||||
use vars qw(%converters);
|
||||
| c510d88b | Sven Schöling | use strict;
|
||
| a200453a | Moritz Bunkus | sub get_converter {
|
||
my ($from_charset, $to_charset) = @_;
|
||||
my $index = "${from_charset}::${to_charset}";
|
||||
if (!$converters{$index}) {
|
||||
$converters{$index} = Text::Iconv->new($from_charset, $to_charset) || die;
|
||||
}
|
||||
return $converters{$index};
|
||||
}
|
||||
sub convert {
|
||||
my ($from_charset, $to_charset, $text) = @_;
|
||||
$from_charset ||= Common::DEFAULT_CHARSET;
|
||||
$to_charset ||= Common::DEFAULT_CHARSET;
|
||||
my $converter = get_converter($from_charset, $to_charset);
|
||||
return $converter->convert($text);
|
||||
}
|
||||
1;
|