Perl lite并使用squid代理操作端口3128

我确实有个问题

我现在使用SOAP:：Lite模块已经有一段时间了，它非常棒

我正在使用下面的脚本来设置会话，这很好。 （地址是假的）

但是由于基础设施的变化，我现在不得不在10.10.10.10:3128使用squid代理。代理可以在没有身份验证的情况下使用

我一直在尝试在soap调用中使用代理设置进行很多选择，但是没有一个提供通过代理进行的调用，它总是试图直接转到服务器

请你能帮我修改一下上面的脚本，这样就可以使用squid代理了

---

Thx提前获取您的回复

查看WWW：：Sales force的来源，您可以在此处复制一个代理选项，以执行您需要的操作。

以下是redhotpenguin引用的WWW：：Sales force的相关部分：

my $client =
  SOAP::Lite->readable($readable)
  ->deserializer( WWW::Salesforce::Deserializer->new )
  ->serializer( WWW::Salesforce::Serializer->new )
  ->on_action( sub { return '""' } )->uri($SF_URI)->multirefinplace(1);

if($WEB_PROXY) {
    $client->proxy( $self->{'sf_serverurl'}, proxy => ['https' => $WEB_PROXY ] );
} else {
    $client->proxy( $self->{'sf_serverurl'} );
}

---

Thx用于响应。但我对这种编码的经验并没有那么丰富。您能否提供我的示例中应该更改的内容，以使其通过中间squid服务器工作。

my $client =
  SOAP::Lite->readable($readable)
  ->deserializer( WWW::Salesforce::Deserializer->new )
  ->serializer( WWW::Salesforce::Serializer->new )
  ->on_action( sub { return '""' } )->uri($SF_URI)->multirefinplace(1);

if($WEB_PROXY) {
    $client->proxy( $self->{'sf_serverurl'}, proxy => ['https' => $WEB_PROXY ] );
} else {
    $client->proxy( $self->{'sf_serverurl'} );
}