Perl IO :: Socket :: INET

Question

#!/usr/bin/perl 

use warnings; use strict; 

use IO::Socket::INET; 

our $local_host = "0.0.0.0"; 
our $local_port = "14267"; 


$SIG{'CHLD'} = 'IGNORE'; 
my $bind = IO::Socket::INET->new(
         Listen=>5, 
         LocalAddr=>$local_host.':'.$local_port, 
         ReuseAddr=>1) 
         or die print('Could not bind: ' .$local_host.':'.$local_port); 

Когда я пытаюсь выполнить этот код из терминала он работает, но когда я пытаюсь выполнить его из браузера он вернуться не мог связать и т.д.

Кто-то может объяснить мне в чем проблема? Думаю, речь идет не о привилегиях пользователей.

Answer 1

Как вы могли знать, что это не может быть связано? Вы всегда регистрируете «Не удалось связать» независимо от того, какая ошибка произошла! Что еще более важно, вы не регистрируете, какая ошибка произошла! Первым шагом было бы исправить это.

#!/usr/bin/perl 

use warnings; use strict; 

use IO::Socket::INET; 

my $local_port = 14267; 

my $server_socket = IO::Socket::INET->new(
    LocalPort => $local_port, 
    Listen => 5, 
    ReuseAddr => 1, 
) 
    or die("Can't create server socket: $@"); # <-- The relevant change. 

Я подозреваю, что вы получите какую-то ошибку разрешения из-за безопасности, такой как SElinux.