Преобразования между полукоксом и TCHAR с Perl

Question

для того, чтобы преобразовать строку в обугленном TCHAR на окнах есть макро называется текст, как показано ниже:

TCHAR Х [20] = Текст («ABCDEDF»);

мне нужно добиться того же с помощью Perl Win32 :: API, чтобы отправить мою строку функционировать как TCHAR

т.е.

мой $ строка = "ABCDEDF"; как преобразовать его в TCHAR и отправить его на некоторую функцию с помощью win32 :: api module.

Answer 1

use Encode qw(encode decode); 
my $windowsString = encode("UCS-2LE", "ABCDEDF");