Second try ... I changed CP1250 to CP1252. (My mistake because I'm more used to ISO-8859-1/15, rather than MS "codepages")
Usage summary:
use trans_charset;
my $data = "������� and more funny chars: � �";
my $output = $t->fromto(
$data,
from => "mac", to => "cp1252",
replacement => { chr( 222 ) =>'fi', chr( 176 ) => 'inf' }.
linebreak => { from => "\x0d", to => "\x0d\x0a" }
);
You can find map files for your own extensions here:
http://www.unicode.org/Public/MAPPINGS/
http://public.activestate.com/gsar/APC/perl-current/ext/Encode/ucm/
Axel
%trans_charset.sit
Description: application/applefile
trans_charset.sit
Description: Binary data
