Perl LWP::Simple "Name or Service Not Known" 错误

Question

在过去一周的某个时候，我开始收到一个代码错误，该代码采用 URL 并检索内容。

这使用了 Perl 模块 LWP::Simple

模块或我们的代码没有任何变化。服务器主机说什么都没有改变。

它发生在 http 或 https

它不仅发生在我们托管的域上。

来自另一台服务器的 URL 不会发生这种情况。

这是错误

Result: $VAR1 = bless( { '_content' => 'Can\'t connect to coloradosportscards.ultimatecardstore.com:443 (Name or service not known) Name or service not known at /usr/local/share/perl5/LWP/Protocol/http.pm line 52. ',
'_rc' => 500,
 '_headers' => bless( { 'client-warning' => 'Internal response', 'client-date' => 'Sun, 02 Feb 2020 19:40:24 GMT',
 'content-type' => 'text/plain',
 '::std_case' => { 'client-warning' => 'Client-Warning', 'client-date' => 'Client-Date' } }, 'HTTP::Headers' ),
 '_msg' => 'Can\'t connect to coloradosportscards.ultimatecardstore.com:443 (Name or service not known)', '_request' => bless( { '_content' => '',
 '_uri' => bless( do{\(my $o = 'https://coloradosportscards.ultimatecardstore.com/online_store/store/images/0000697417.jpg')},
 'URI::https' ),
 '_headers' => bless( { 'user-agent' => 'Mozilla/5.0' },
 'HTTP::Headers' ), '_method' => 'GET' },
 'HTTP::Request' ) },
 'HTTP::Response' );

我们正在尝试访问此图像，该图像存在

https://coloradosportscards.ultimatecardstore.com/online_store/store/images/0000697417.jpg

提前感谢您的关注

麦克

Answer 1

以下代码成功检索了图像

use strict;
use warnings;
use feature 'say';

use LWP::Simple;

my $base = 'https://coloradosportscards.ultimatecardstore.com';
my $url  = $base . '/online_store/store/images/0000697417.jpg';
my $file =  if $url =~ m|/(\d+\.jpg)|;

if (is_success(getstore($url, $file))) {
    say "Retrieved $file successfully";
} else {
    say "Couldn't retrieve $file";
}

Answer 2

我的服务器人解决了它。不太确定他们做了什么，但确实有效。

Could a Cpanel update have changed the environment. This did suddenly start happening with no changes to the code on my end.

是的，当 cPanel 升级服务器托管环境所需的合适软件包时，也有机会这样做，但是他们只会在广泛测试后才会这样做。由于提到的错误也指向 'Name or service not known'，因此服务器内部可能无法正确进行解析。我们现在已经稍微向服务器添加了另一个解析器 IP。请检查并查看您的情况。

Perl LWP::Simple "Name or Service Not Known" 错误

Perl LWP::Simple "Name or Service Not Known" error

perl

lwp