zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-22 08:10:50 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.836

Browse source
This commit is contained in:
Nick Bebout 2017-09-23 16:54:48 -05:00
parent 3afeea4a16
commit 8d76e44c5e
243 changed files with 57452 additions and 10330 deletions
Download patch file Download diff file Expand all files Collapse all files

26
W/paypal_reply/MapUTF8_bug2 Executable file
View file

@ -0,0 +1,26 @@
#!/usr/bin/perl -w
# $Id: 8859_utf8,v 1.1 2010/10/01 13:00:09 gilles Exp gilles $
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);
use strict ;
use warnings ;
die unless (utf8_supported_charset('ISO-8859-1'));
#local $/ ;
my @string = <> ;
my $string = join( q{}, @string ) ;
# print $string ;
my $string_utf8 = to_utf8({ -string => $string, -charset => 'ISO-8859-1' }) ;
print $string_utf8 ;
#foreach my $string ( "A", "\xE9", "\xE9\x1A" ) {
# print to_utf8({ -string => $string, -charset => 'ISO-8859-1' }), "\n";
#}