问Docker:主机名与容器名不同

EN

use strict;
use warnings;

use POSIX qw(:sys_wait_h :errno_h :fcntl_h strftime);
use Getopt::Long;
use File::Basename;
use IO::Socket;
use IO::Select;
STDOUT->autoflush(1);
use Fcntl;
use Socket;
use Carp;
use FileHandle;
use Cwd qw{abs_path cwd};

use Sys::Hostname;

our $HOST                              = hostname();
our $PUBQDIR                           = '/x/eng/site/build/altload';
our $PWD                               = cwd();
our $EMPTY                             = q{};
our $NL                                = "\n";
our $SPACE                             = q{ };
our $ANY_RE                            = qr{.*};
our $REDIS_OS_RE                       = qr{^br-redis$};
our $HOST_SPLIT_RE                     = qr{[.][^:]*};
our $bash_and_list_op                  = '&&';
my $Request_File         = $EMPTY;


# options from command line
my $Opt_Class            = 'L';

my $Redis                = $EMPTY;
my %Published_Requests   = (); # Track published queue requests for cleanup

chomp $HOST;
$HOST =~ s/[.].*//g;
chomp $PWD;
my $Pool   = $EMPTY;

sub sock_initialize {

    my $sock  = q{};
    my $port  = q{};

    # Get a port for our server.
    $sock = IO::Socket::INET->new(
        Listen    => SOMAXCONN,    # listen queue depth
        LocalPort => 0,
        Reuse     => 1
    );

    die "Unable to bind a port: $!" if !$sock;
    $port      = $sock->sockport();

    # Determine and log the dispatcher queue id
    #my $ip = inet_ntoa( scalar gethostbyname( $HOST ));
    my $ip = "";
    my $uid = (getpwuid( $> ))[2];
    my $queue = join(":", $ip, $port, $$, $uid);

    # Include in the published queue name:
    #    - job class, which must be the same for all jobs we submit
    #    - Our Hostname and Port
    # Can't lower hostname to IP yet, it might give 127.0.0.1

    print sprintf("Connect me at $HOST on port $port ($$), SOMAXCONN=%d\n", SOMAXCONN);

    return $sock;
} ## end sub sock_initialize

my $listen_sock = sock_initialize();
while (1) {
    #my $xsock = Accept();
    my $xsock;
    while (1) {
        $! = 0;
        # Accept can block.  Need to use nonblocking poll (Stevens)
        $xsock = $listen_sock->accept;    # ACCEPT
        last if defined $xsock;
        next if $! == EINTR;
        die "accept error: $!";
        if ( defined $xsock ) {
            $xsock->blocking(0);    # mark executor socket nonblocking
            $xsock->sockopt( SO_KEEPALIVE() => 1 ) or die "sockopt: $!";
        }
    }

    my $buff = "";
    while (1) {
        my $nbytes = sysread $xsock, $buff, 32768, length($buff);    # SYSCALL

        if ( !defined $nbytes ) {                            # read error
            next if $! == EINTR;
            last if $! == EWOULDBLOCK;                       # normal
            return;
        }
        last if $nbytes == 0;                            # EOF
    }
    print "received $buff\n";
    last;

Connect me at ebcf3c65c3e1 on port 39580 (1), SOMAXCONN=128

my $host = "myhost01";
my $port = 39850;
my $s = IO::Socket::INET->new (PeerAddr => $host,
                                        PeerPort => $port,
                                        Type     => SOCK_STREAM,
                                        Proto    => 'tcp',
                                        Timeout  => 1);

Connect me at myhost01 on port 39580 (1), SOMAXCONN=128