用perl在char和Tchar之间转换

Question

为了在Windows上将char字符串转换为Tchar，有一个名为Text的宏，如下所示：

TCHAR X [20] =文字（“ABCDEDF”）;

我需要用perl使用win32 :: api来实现同样的功能，将我的字符串发送到TCHAR

即

my $ string =“ABCDEDF”; 如何将其转换为TCHAR并使用win32 :: api模块将其发送到某个函数。

Answer 1

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