主页 / user-1462402

user1462402's questions

Martin Hope
user1462402
Asked: 2025-03-09 07:45:18 +0800 CST
  • 5

当将类型为非 ASCII 名称的对象传递给 时Scalar::Util::blessed()，它似乎返回八位字节而不是 Perl 字符串。我在 Windows 上运行 ActiveState Perl v5.20.2。有人可以检查这是否发生在任何其他平台/版本上吗？（请注意，confess()正确显示调用的类名check_self()。）

use strict; use warnings;
use utf8;
use English;
use feature qw(unicode_strings);
use open qw(:std :utf8);

package MyClass {
    use strict; use warnings;
    use utf8;
    use feature qw(unicode_strings);
    use Carp ();
    use Scalar::Util ();

    sub new {
        my $class = $_[0];
        return bless( {}, $class );
    }
    sub check_class {
        my $class = $_[0];
        STDERR->print( "$class\n" );
        unless ( defined($class) && ref($class) eq '' 
               && $class->isa(__PACKAGE__) ) {
          Carp::confess( sprintf( "bad call to %s()", ( caller(1) )[3] ) );
        }
        return;
    }
    sub check_self {
        my $self = $_[0];
        check_class( Scalar::Util::blessed($self) );
        return;
    }
}

package MüClass {
    use strict; use warnings;
    use utf8;
    use Carp ();
    use Scalar::Util ();

    sub new {
        my $class = $_[0];
        return bless( {}, $class );
    }
    sub check_class {
        my $class = $_[0];
        STDERR->print( "$class\n" );
        Carp::confess( sprintf( "bad call to %s()", ( caller(1) )[3] ) )
            unless defined($class) && ref($class) eq '' 
                && $class->isa(__PACKAGE__);
        return $class;
    }
    sub check_self_1 {
        my $self = $_[0];
        return check_class( ref($self) );
    }
    sub check_self_2 {
        my $self = $_[0];
        my $class;
        $class = check_class( Scalar::Util::blessed($self) );
        return $class;
    }
    sub check_self_3 {
        my $self = $_[0];
        my $class = Scalar::Util::blessed($self);
        utf8::decode($class) unless utf8::is_utf8($class);
        return check_class($class);
    }
}

my $myclass = MyClass->new;
MyClass->check_class;
$myclass->check_self;
my $müclass = MüClass->new;
MüClass->check_class;
$müclass->check_self_1;
eval{ $müclass->check_self_2; };
STDERR->print($EVAL_ERROR) if $EVAL_ERROR;
$müclass->check_self_3;

输出：

MyClass  
MyClass  
MüClass  
MüClass  
MüClass  
bad call to MüClass::check_self_2() at D:\Batch/test-blessed.pl line 47.
        MüClass::check_class("M\x{c3}\x{bc}Class") called at D:\Batch/test-blessed.pl line 59  
        MüClass::check_self_2(MüClass=HASH(0x256d560)) called at D:\Batch/test-blessed.pl line 76  
        eval {...} called at D:\Batch/test-blessed.pl line 76  
MüClass
perl