Help for this page
$charset = [ $charset ] unless ref $charset eq 'ARRAY'; my $charset_input = shift @$charset || 'US-ASCII'; my $charset_output = shift @$charset || $charset_input;
if ($charset_input ne $charset_output) { my $perl_string= $charset_input eq '*internal*' ... : Encode::decode($charste_input, $string); $string= Encode::encode($charset_output, $perl_string); }
www.com | www.net | www.org
No recent polls found