在 Perl 中使用 Win32::API 访问 DLL 的方法

Question

我拥有一个 Microsoft Powershell 脚本，该脚本检查所有以 .wtv 结尾的折叠文件（Windows Media Center 录制的电视节目），提取一些元数据（使用名为“Toub.MediaCenter.Dvrms.dll”的 DLL），然后将其写入标准输出：

[void][System.Reflection.Assembly]::LoadFile("C:\Toub.MediaCenter.Dvrms.dll")

# Get all files ending in .wtv

foreach ($file in gci "*.wtv")
{
  $wtv = New-Object Toub.Mediacenter.Dvrms.Metadata.DvrmsMetadataEditor($file)
  $attrlist = $wtv.GetAttributes()

  # Extract the Title and Description from the recorded programme

  $t = $attrlist["Title"].value
  $d = $attrlist["WM/SubTitleDescription"].value

  # Print them to STDOUT

  "$t"
  "$d"
}

目前，我从 Perl 脚本运行它，然后解析结果。它可以工作，但是很混乱，我想放弃 powershell 部分并完全在 Perl 中完成。

但是，我完全不知道如何链接到 DLL，以便我可以在文件上调用 GetAttributes 方法，然后提取 Title 和 WM/ 的值副标题描述。

有人指出我使用 Win32::API，但我不知道要从中导入该函数的库的名称，也不知道该函数的 C 原型。

因此，我的代码逐渐停止，因为我不太确定应该使用 Win32::API 做什么。我的（非常基本的）存根看起来像这样：

use Win32::API;

foreach my $file (glob("*.wtv"))
{
  my $wtv = new Win32::API(...stuck here...);

  # Complete guesswork from here on...

  print $wtv->GetAttributes("Title") . "\n";
  print $wtv->GetAttributes("WM/SubTitleDescription") . "\n";
}

我猜从上面的 Powershell 中可以明显看出我应该将什么放入 new Win32::API 行以及是否 $ wtv->GetAttributes 是正确的 - 但说实话，我不知道。

有人可以指出我正确的方向吗？

Answer 1

看起来 power shell 脚本正在加载 .net Framework dll 而不是 C api dll，它使用的类 Toub.Mediacenter.Dvrms.Metadata.DvrmsMetadataEditor 很可能是在其中定义的。我知道活动状态对 Pearl 和 .net 之间的互操作性有一些支持。

我不知道您是否有重要的 Perl 代码库，或者这是否是您的知识所在，但是 power shell 完全能够处理您的解析需求，朝这个方向前进可能会更容易。