echo ü > umlaut
gzip -k umlaut
####
perl -e '
use IO::Uncompress::Gunzip;
binmode(STDOUT, ":utf8");
open my $in, "<:utf8", "umlaut";
$_=<$in>;
print "Uncompressed: $_ ",ord($_),"\n";
my $gin= IO::Uncompress::Gunzip->new("umlaut.gz");
binmode($gin, ":utf8");
$_=<$gin>;
print " Compressed: $_ ",ord($_),"\n";
'
##
##
perl -e '
use IO::Uncompress::Gunzip;
use Encode;
binmode(STDOUT, ":utf8");
my $gin= IO::Uncompress::Gunzip->new("umlaut.gz");
$_=<$gin>;
$_ = Encode::decode("UTF-8", $_);
print " Compressed: $_ ",ord($_),"\n";
'
##
##
my $encoding = ":utf8";
if ( $filename =~ /\.gz$/ ) {
$encoding = ":gzip$encoding";
}
open $in, "<$encoding", $filename or die "Can't read $filename: $!\n";