Help for this page

Select Code to Download


  1. or download this
    my $flag_is_0 = "\xC9ric";  utf8::downgrade($flag_is_0);
    my $flag_is_1 = "\xC9ric";  utf8::upgrade($flag_is_1);
    
    say substr($flag_is_0, 0, 1) eq substr($flag_is_1, 0, 1) ?1:0;  # 1