mirror of
https://github.com/imapsync/imapsync.git
synced 2025-08-02 15:11:49 +02:00
13 lines
282 B
Perl
Executable file
13 lines
282 B
Perl
Executable file
#!/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);
|
|
|
|
die unless (utf8_supported_charset('ISO-8859-1'));
|
|
|
|
while (<>) {
|
|
print to_utf8({ -string => $_, -charset => 'ISO-8859-1' });
|
|
}
|
|
|
|
|