web-services - VBScript/CATScript Web 服务请求 Unix

Question

我正在为 CATIA 编写一个脚本，以便在基于 Windows 和 Unix 的系统下运行。
为此，我使用的是 CATScript，它是 VBScript 的衍生物，所以也许这里的 VBScript 专业人士会有答案；-)
对于这个脚本，我需要执行 web 服务请求，以下代码适用于 Windows：

Sub CATMain()
    Dim url As String
    Dim oHttpReq As Object
    Dim responseText As String

    url = "http://some.webservice.php?request=some_reuest&params=some_param"
    Set oHttpReq = CreateObject("MSXML2.ServerXMLHTTP") 

    oHttpReq.Open "POST", url, False
    oHttpReq.Send

    'Response
    responseText = oHttpReq.responseText

    MsgBox responseText

End Sub

但是，这当然不适用于 Unix，因为它不知道 MSXML2.ServerXMLHTTP 对象。您对 Unix 使用什么对象有任何想法吗？或者任何其他对 Unix 系统有益的解决方法？

提前致谢并致以最诚挚的
问候

Answer 1

我没有使用 CATIA 的经验，但如果您可以运行外部程序，您也许可以使用Perl 脚本：

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $response = $ua->post(
  'http://some.webservice.php',
  [
    'request' => 'some_request',
    'params'  => 'some_param'
  ]
);
print $response->as_string();