求教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     <-----上次執(zhí)行時端口沒釋放


###########################
抓包看了，連接確實斷了，但是那個端口不能重復(fù)使用了，必須等超時之后才可用

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會發(fā)送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);

這個會發(fā)FIN包吧？

meihuaqi

$socket->shutdown(1);

會發(fā)FIN包

meihuaqi

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

黑色陽光_cu

他老母的，去掉 $socket->shutdown(1); 之后原來那腳本也好使了，為啥呢？
meihuaqi 發(fā)表于 2010-03-17 13:49

   


不告訴你

meihuaqi

高手，太小氣了