PerlのIO ::ソケット:: 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のようなセキュリティフレームワークのために、何らかのパーミッションエラーが発生すると思われます。