Windows-1252在Perl中将Unicode转换

Question

我具有Windows-1251十六进制格式的ef（西里尔字母）字符。 取值为0xF4。 我想转换并在perl中打印字符。 我可以通过unicode 0x0444来做到这一点。 我正在寻找一种将0xF4转换为0x044的方法。 我最终的计划是给定任何编码形式的任何字符的十六进制值，我应该能够将其转换为unicode的十六进制值，并最终能够打印出来。 但是它不起作用下面是我正在使用的代码

#!/usr/bin/perl
use strict;
use utf8;
use Encode qw(decode encode);

binmode(STDOUT, ":utf8");
my $runtime = chr(0x0444);
   print "theta || ".$runtime." ||";
   my $smiley = "\x{0444}";
   print "theta || ".$smiley." ||";
   my $georgian_an  = pack("U", 0x0444);
   print "theta || ".$georgian_an." ||";

  my $hexstr = "0xF4";
  my $num = hex $hexstr;
  print $num;  # printing the hex value
  my $be_num = pack("N", $num);
  $runtime = decode( "cp1252",$be_num);
  print "\n".$runtime."\n"; # i should have got ф here

产量

perl mychar_new.pl
theta || ф ||theta || ф ||theta || ф ||244

ô

Answer 1

输出正确–在CP-125 2中 ， 0xF4确实是ô （ Wikipedia ）。

您想改为指定CP-125 1 ！

use Encode 'decode';
my $cp1251 = "\xF4";
my $decoded = decode "cp1251", $cp1251;
print "$decoded\n";