perl的多线程端口扫描问题

fangrm1988

hi,all,帮看下这个多线程的端口扫描脚本哪里写的不对的，目前发现2个问题。脚本主要是对mssql数据库中的表下存放的大量域名进行端口扫描，将扫描出来的开放端口更新到数据表中，为了提高效率，所以需要加上多线程的操作，但不是很熟悉多线程，需要请各位帮忙看看那里的问题。
1、测试发现脚本执行后,会对表中的列domainname域名全部提取出来进行nmap扫描，不知道该如何限制呢，一次限制为几十个这样。
2、扫描中测试nmap有端口输出，但是无法更新的数据库中。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use DBI;
   
5. use threads;
   
6. 
   
7. my $dsn = 'DBI:Sybase:server=sql1';
   
8. my $dbh = DBI->connect($dsn, "test", 'test.com');
   
9. die "unable to connect to server $DBI::errstr" unless $dbh;
   
10. $dbh->do("use portscan");
    
11. my $query = "SELECT domainname FROM psinfo";
    
12. my $sth = $dbh->prepare ($query) or die "prepare failed\n";
    
13. $sth->execute() or die "unable to execute query $query   error $DBI::e
    
14. +rrstr";
    
15. 
    
16. my $line;
    
17. my $myport;
    
18. while ($line = $sth->fetchrow_array()) {
    
19. my $new_thread = threads->new(\&scan_domain, $line);
    
20. print "$myport\n";  #for test
    
21. my $upd_sth = $dbh->prepare("update psinfo set port=\'$myport\' where
    
22. +domainname=\'$line\'");
    
23. $upd_sth->execute() or die "unable to execute update line where name i
    
24. +s $line! error $DBI::errstr";
    
25. $upd_sth->finish;
    
26. }
    
27. sub scan_domain {
    
28.         my $s_myport;
    
29.         my $domain_name = shift;
    
30.         print "started thread for $domain_name\n";
    
31.         my @list =`nmap $line`;
    
32.         foreach(@list){      
    
33.             if($_=~/open/g){
    
34.                 $_ =~ s/\/.*//g;
    
35.                 if($s_myport)
    
36.                 {$s_myport=$s_myport.','.$_;chomp $s_myport;}
    
37.                 else{$s_myport=$_; chomp $s_myport}
    
38.             }
    
39.         }
    
40.         $myport=$s_myport;
    
41. }
    
42. 
    
43. $sth->finish;
    

复制代码

laputa73

用了nmap.还需要多线程干啥.
直接都扔给nmap去做就完了
你还在线程里面调进程....

mcshell

回复 1# fangrm1988


    给你一个多进程的端口扫描例子。。偶然间看到的
http://www.jnthn.net/perlportscanner.shtml

墨迹哥

我比较好奇的是如何在扫描结束以后终止连接。
我观察了一下，当扫描结束以后，连接还是继续连着的。。
这样很浪费资源。。

兰花仙子

Net::Ping支持多种端口扫描方法，tcp udb syn等