[求助] DBI:mysql连接断开后仍有残留TIME_WAIT

r_zack

大家好，请教个perl连接mysql断开后的问题，程序的代码如下：

1. 
   
2. #!perl
   
3. use DBI;
   
4. 
   
5. $dbh = DBI->connect(
   
6.         "DBI:mysql:test_db:127.0.0.1:3306",
   
7.         "username",
   
8.         "password" ) or die "Connection Failed.\n";
   
9. 
   
10. $behavior = $dbh->prepare("select * from test_table");
    
11. $behavior->execute;
    
12. 
    
13. print "@$line\n" while $line = $behavior->fetchrow_arrayref;
    
14. system 'netstat -n';
    
15. $dbh->disconnect;
    

复制代码

这个程序会先输出查询结果，然后输出程序运行时的netstat -n结果，当时netstat部分结果为：

1. 
   
2. Proto        Local Address        Foreign Address        State
   
3. TCP        127.0.0.1:3306        127.0.0.1:3732        ESTABLISHED
   
4. TCP        127.0.0.1:3732        127.0.0.1:3306        ESTABLISHED
   

复制代码

这个结果是正常的，但是当程序结束后，一段时间之内，netstat -n的结果都会是如下情形：

1. 
   
2. Proto        Local Address        Foreign Address        State
   
3. TCP        127.0.0.1:3732        127.0.0.1:3306        TIME_WAIT
   

复制代码

我感觉比较难以理解的是DBI的$dbh->disconnect可以正确的让mysql服务器关闭连接，为什么它不能让自己正确的关闭连接？
在程序退出后，我关掉mysql服务，但是这个连接还在，这应该不是网上很多人说的mysql超时问题吧？请问这个问题有没有什么解决办法？
环境为Windows+ActivePerl.

snowtty

Q 我的也有 在linux下

黑色阳光_cu

TCP协议里 执行主动关闭的一方会进入TIME_WAIT状态 正常的