in reply to Re^6: Processing an encoded file backwards (updated)
in thread Processing an encoded file backwards

What Perl version? I'm getting

UTF-16BE:Partial character at /home/choroba/1.pl line 8.

[download]
in 5.26.1.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^8: Processing an encoded file backwards (updated)
by LanX (Saint) on Jan 18, 2020 at 23:27 UTC
    That's what I get in git-bash with 5.26.2

    probably a windows problem?

    $ perl
use warnings;
use strict;
use Encode qw/decode/;
use Data::Dumper qw/Dumper/;


warn Dumper decode('UTF-16-BE', "\x3D\xDD\xFA", Encode::FB_CROAK|Encod
+e::LEAVE_SRC );
warn Dumper decode('UTF-16-BE', "\xFA",         Encode::FB_CROAK|Encod
+e::LEAVE_SRC );

warn Dumper decode('UTF-16-LE', "\xD8\xFA\xDD", Encode::FB_CROAK|Encod
+e::LEAVE_SRC );
warn Dumper decode('UTF-16-LE', "\xDD",         Encode::FB_CROAK|Encod
+e::LEAVE_SRC);

__END__
$VAR1 = "\x{3ddd}";
$VAR1 = '';
$VAR1 = "\x{fad8}";
$VAR1 = '';

 MINGW64 ~
$ perl -v

This is perl 5, version 26, subversion 2 (v5.26.2) built for x86_64-ms
+ys-thread-multi

    [download]

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
[d/l]
Re^8: Processing an encoded file backwards (updated)
by LanX (Saint) on Jan 18, 2020 at 23:19 UTC
    > What Perl version?

    'This is perl 5, version 24, subversion 1 (v5.24.1) built for MSWin32-x64-multi-thread'

    does it die?

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
      Yes, with exit code 2.

      This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-thread-multi

      map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
        Will test on Linux tomorrow, but I doubt it's about the Perl version.

        Termux with 5.28 doesn't die.

         
$ perl

$VAR1 = "\x{3ddd}";
$VAR1 = '';
$VAR1 = "\x{fad8}";
$VAR1 = '';


$ perl -v

This is perl 5, version 28, subversion 2
 (v5.28.2) built for arm-android

        [download]

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
[d/l]
        neither 5.18 nor 5.28 in my Ubuntu VM do die.

        lanx@ubuntu14-large:~$ perlbrew use perl-5.28.0
lanx@ubuntu14-large:~$ perl 
use warnings;
use strict;
use Encode qw/decode/;
use Data::Dump qw/dd/;


dd decode('UTF-16-BE', "\x3D\xDD\xFA", Encode::FB_CROAK|Encode::LEAVE_
+SRC );
dd decode('UTF-16-BE', "\xFA",         Encode::FB_CROAK|Encode::LEAVE_
+SRC );

dd decode('UTF-16-LE', "\xD8\xFA\xDD", Encode::FB_CROAK|Encode::LEAVE_
+SRC );
dd decode('UTF-16-LE', "\xDD",         Encode::FB_CROAK|Encode::LEAVE_
+SRC);

__END__
"\x{3DDD}"
""
"\x{FAD8}"
""
lanx@ubuntu14-large:~$ perl -v

This is perl 5, version 28, subversion 0 (v5.28.0) built for x86_64-li
+nux

        [download]

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
[d/l]

      Just a note on this subthread: Encode can be upgraded separately from Perl.

[reply]
        Ah, OK. It's

        archperlEncode
        x86_64-linux-thread-multi5.26.13.01
        x86_64-linux-thread-multi5.31.83.02
        arm-android 5.30.13.01

        All of them die.

        map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]

In Section Seekers of Perl Wisdom