Help for this page

Select Code to Download


  1. or download this
    my $string = "\x{0410}\x{0411}\x{0412}";  # unicode
binmode STDOUT, ":encoding(cp1251)";
print $string, "\n";
  2. or download this
    my $string = "\xc0\xc1\xc2";  # cp1251
print $string, "\n";