求教IO::Socket::INET 本地端口释放问题，求高手解惑！

meihuaqi

求教IO::Socket::INET 本地端口释放问题，求高手解惑！


###################################################
use IO::Socket;
use Getopt::Std;

my %option;
getopts("u:c:p:", \%option);

my $url=$option{u};
my $cookie=$option{c} if exists($option{c});
my $localport=$option{p};

(my $remote_host, my $uri)= $url=~/http:\/\/(.*?)\/(.*)/;

$remote_port="80";

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                LocalPort => $localport,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
    or die "Couldn't connect to $remote_hostremote_port : $@\n";


if (exists($option{c}))
{
        print $socket "GET /hostname.txt HTTP/1.1\r\nHost: 10.3.10.1\r\nCookie: $cookie\r\nConnection: close\r\n\r\n" ;
} else {
        print $socket "GET /hostname.txt HTTP/1.1\r\nHost: 10.3.10.1\r\nConnection: close\r\n\r\n";
}

$socket->shutdown(1);

my $answer=undef;

while (<$socket>
{
        $answer.=$_;
}

print "$answer\n";

close($socket);
#################  运行   ###############
stress204# perl sourceport.pl -u http://172.16.63.31/hostname.txt -p 9999
HTTP/1.1 200 OK
Server: nginx/0.5.33
Date: Wed, 17 Mar 2010 10:52:32 GMT
Content-Type: text/plain
Last-Modified: Tue, 11 Aug 2009 14:53:39 GMT
Accept-Ranges: bytes
Content-Length: 14
Connection: close
Via: 1.1 AN-0001242745426001

172.16.64.207

stress204# perl sourceport.pl -u http://172.16.63.31/hostname.txt -p 9999
Couldn't connect to 172.16.63.31:80 : IO::Socket::INET: Address already in use     <-----上次执行时端口没释放


###########################
抓包看了，连接确实断了，但是那个端口不能重复使用了，必须等超时之后才可用

meihuaqi

好像ReusePort，Reuse 能管用，但是试了还是没效果啊，没人知道吗？


$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                LocalPort => $localport,
                                Proto    => "tcp",
                                ReuseAddr=> "1",
                                Reuse    => "1",
                                ReusePort=> "1",
                                Type     => SOCK_STREAM)

Pro_sky

IO::Socket::INET，这个包是有问题的

黑色阳光_cu

用了ReusePort Reuse后 试试把那句shutdown去掉 用了shutdown会发送FIN

--------------------------------------------------

还不行试试use Socket;

meihuaqi

搞定了，use Socket; 希望以后的人少走弯路。
这需求太恶心人了！！！
#######################################
use Socket;
use IO::Handle;
use Getopt::Std;

my %option;
getopts("u:c:p:", \%option);

my $url=$option{u};
my $cookie=$option{c} if exists($option{c});
my $localport=$option{p};

(my $remote_host, my $uri)= $url=~/http:\/\/(.*?)\/(.*)/;

socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$internet_addr = inet_aton($remote_host)
    or die "Couldn't convert $remote_host into an Internet address: $!\n";
$paddr = sockaddr_in("80", $internet_addr);

my $inet_addr = inet_aton("172.16.63.204";
my $localaddr     = sockaddr_in($localport, $inet_addr);
bind(SOCKET, $localaddr)         or die "bind: $!";


connect(SOCKET, $paddr)
    or die "Couldn't connect to $remote_hostremote_port : $!\n";

SOCKET->autoflush(1);

if (exists($option{c}))
{
        print SOCKET "GET /$uri HTTP/1.1\r\nHost: 10.3.10.1\r\nCookie: $cookie\r\nConnection: close\r\n\r\n" ;
} else {
        print SOCKET "GET /$uri HTTP/1.1\r\nHost: 10.3.10.1\r\nConnection: close\r\n\r\n";
}


my $answer=undef;

while (<SOCKET>
{
        $answer.=$_;
}

print "$answer\n";

close(SOCKET);
############  运行  ###################
stress204# perl sourceport2.pl -u http://172.16.63.31/hostname.txt -p 2000
HTTP/1.1 200 OK
Server: nginx/0.5.33
Date: Wed, 17 Mar 2010 13:39:23 GMT
Content-Type: text/plain
Last-Modified: Tue, 11 Aug 2009 14:53:39 GMT
Accept-Ranges: bytes
Content-Length: 14
Connection: close
Via: 1.1 AN-0001242745426001

172.16.64.207

stress204# perl sourceport2.pl -u http://172.16.63.31/hostname.txt -p 2000
HTTP/1.1 200 OK
Server: nginx/0.5.33
Date: Wed, 17 Mar 2010 13:39:24 GMT
Content-Type: text/plain
Last-Modified: Tue, 11 Aug 2009 14:53:39 GMT
Accept-Ranges: bytes
Content-Length: 14
Connection: close
Via: 1.1 AN-0001242745426001

172.16.64.207

黑色阳光_cu

你原来的

$socket->shutdown(1);

这个会发FIN包吧？

meihuaqi

$socket->shutdown(1);

会发FIN包

meihuaqi

他老母的，去掉 $socket->shutdown(1); 之后原来那脚本也好使了，为啥呢？

黑色阳光_cu

他老母的，去掉 $socket->shutdown(1); 之后原来那脚本也好使了，为啥呢？
meihuaqi 发表于 2010-03-17 13:49

   


不告诉你

meihuaqi

高手，太小气了