VBScript/CATScript Unix服务请求Unix

Question

我为CATIA编写了一个脚本，它可以在Windows和Unix系统下运行。

对于这一点，我使用的是CATScript，它是VBScript的衍生物，所以也许VBScript pro在这里会有一个答案;-)

对于这个脚本，我需要处理一个webservice请求，下面的代码在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 script

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();