почему IO :: Socket всегда получает TIMEOUT?

Question

всякий раз, когда я пытаюсь соединиться с Perl Socket, он получает тайм-аут ... как этот код:

#!/usr/bin/perl
use v5.26;
use IO::Socket;


my $sock = IO::Socket::INET->new(PeerAddr=> 'www.google.com',
                             PeerPort => 'http(80)',
                             Proto    => 'tcp') or die $!;

my $line = <$sock>;
say $line;

Может кто-нибудь сказать мне, почему ...

Answer 1

В разговоре с веб-сервером пользовательский агент говорит первым.Вы не отправили запрос.Сервер ждет, пока вы отправите запрос, затем сдается.Если вы хотите делать веб-запросы, то что-то вроде Mojo :: UserAgent сделает большую часть работы за вас.

Также поймите, что некоторые хосты могут быть мудрыми для вас.Вместо этого лучше тестировать подобные вещи локально.