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); 

bunun işe yaradığını terminalden bu kodu çalıştırmak için çalışıyorum ama tarayıcıdan çalıştırmak çalıştığınızda o bağlamak olamazdı dönmek vb

Birisi açıklayabilir misin sorun ne? Bence kullanıcı ayrıcalıkları ile ilgili değil.

Answer 1

Nasıl bağlanamadığını nereden biliyorsunuz? Ne hata olursa olsun her zaman "Bağlanamadı" girişiniz var! Daha önemlisi, hangi hatanın oluştuğu kaydetmezsiniz! İlk adım bunu düzeltmek olurdu.

#!/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 gibi bir güvenlik çerçevesi nedeniyle bir çeşit izin hatası alacağınızdan şüpheleniyorum.