in reply to Re: Lost in compressed encodings
in thread Lost in compressed encodings
Thanks Corion. I already had the feeling that the sequence somehow is the issue.
Unfortunately providing binmode after IO::Uncompress did not help.
My changed code:
open my $in, '<:raw', $filename or die "Can't read $filename: $!\n +"; if ($filename=~/\.gz$/) { $in= new IO::Uncompress::Gunzip $in, { AutoClose => 1 }; } binmode $in, ':utf8';
It still works with uncompressed and not with compressed data.
Seems I will have to manually decode each line…
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Lost in compressed encodings
by Corion (Patriarch) on Apr 06, 2020 at 08:59 UTC | |
by Skeeve (Parson) on Apr 06, 2020 at 09:19 UTC | |
by Tux (Canon) on Apr 06, 2020 at 10:49 UTC |
In Section
Seekers of Perl Wisdom