Perl LWP :: Simple“名称或服务未知”错误

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 = $1 if $url =~ m|/(\d+\.jpg)|;

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

Answer 2

Cpanel更新是否可以更改环境。这确实突然开始发生了，而我的代码没有更改。

是的，当cPanel升级服务器托管环境所需的合适软件包时，也有机会，但是它们只有在经过广泛测试后才能这样做。由于提到的错误还指向“名称或服务未知”，因此有可能无法从服务器内部正确进行解析。现在，我们已向服务器中稍微添加了另一个解析器IP。请检查并查看效果如何。