perl – 为什么编码删除参数？

发布时间：2020-12-16 06:28:16 所属栏目：大数据来源：网络整理

导读：如果CHECK设置为true值,为什么encode会删除传递的参数？ #!/usr/bin/env perluse warnings;use strict;use utf8;use Encode;my $decoded = 'h';if ( eval { encode( 'utf-8',$decoded,1 ); 1 } ) { print "|$decoded|n"; # prints ||} 解决方法它适用于您

如果CHECK设置为true值,为什么encode会删除传递的参数？

#!/usr/bin/env perl
use warnings;
use strict;
use utf8;
use Encode;

my $decoded = 'h';
if ( eval { encode( 'utf-8',$decoded,1 ); 1 } ) {
    print "|$decoded|n";    # prints ||
}

解决方法

它适用于您重复传递数据块进行编码或解码的情况.我们的想法是该函数将删除它已翻译的字符串部分,并且您只需将下一个块附加到剩下的部分.它对于处理可跨两个块分割的多字节编码很有用.

如果您不想要此行为,则可以将Encode :: LEAVE_SRC位移入第三个参数.像这样

use utf8;
use strict;
use warnings;

use Encode qw/ encode decode FB_CROAK LEAVE_SRC /;
use Data::Dump;

my $decoded = 'ABC';
dd $decoded;
my $encoded = encode( 'UTF-8',FB_CROAK | LEAVE_SRC );
dd $decoded;
dd $encoded;

产量

"ABC"
"ABC"
"ABC"

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!