#!/usr/bin/perl
use strict;
use warnings;
use Socket;
sub get_ip_address($$) {
    my($addr, $port) = @_; 
    my $dest = sockaddr_in($port, inet_aton($addr));
    socket(SOCK,AF_INET, SOCK_DGRAM, 0);
    connect(SOCK,$dest);
    my $mysockaddr      = getsockname SOCK;
    my($myport, $myaddr)      = sockaddr_in($mysockaddr);
    my $mystraddr      = inet_ntoa($myaddr);
    return $mystraddr;
};
print get_ip_address("127.0.0.1","3000");

参考文献:

https://os.51cto.com/art/201109/294229.htm

https://www.cnblogs.com/hanleilei/archive/2012/03/23/2414104.html

https://blog.csdn.net/u014703817/article/details/37649819

https://www.cnblogs.com/hei-hei-hei/p/9510172.html