分享我的局域网ip扫描的小脚本

xiucai315

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. ################################
   
5. # this script is using to scan the lan 's ip.
   
6. # this can show how much ip is in using.
   
7. # auth by redpig315,^_^
   
8. ###############################
   
9. 
   
10. 
    
11. use strict;
    
12. use warnings;
    
13. 
    
14. open(Fh,">iptable");
    
15. print Fh "iplist\n";
    
16. close(Fh);
    
17. open(Fh,">>iptable");
    
18. 
    
19. my $iphead="192.168.250.";
    
20. my $i=1;
    
21. my $count=0;
    
22. while($i++<255){
    
23. my $ip =$iphead.$i;
    
24. my $node=$ip;
    
25. my $state=!system("ping -c        1 -w 1 -q $node 1>/dev/null 2>&1");
    
26. if(!$state){
    
27.    print "$node is  offline\n";
    
28. 
    
29. }else{
    
30.      $count++;
    
31.    print "$node is online\n";
    
32.    print Fh "$node\n";
    
33. }
    
34. 
    
35. $ip=$iphead;
    
36. }
    
37. close(Fh);
    
38. 
    
39. print "total $count 's ip online\n";
    
40. 
    
41. my $offip=255-$count;
    
42. 
    
43. print "total $offip 's ip offline\n";
    
44. 
    

复制代码

通过修改iphead的值，填入要扫描的局域网ip，对本网段的ip进行可用性统计，结果记录在iptable中，并显示可用ip数。

Perlvim

可用的IP数，是指正在使用的IP数，还是能用的IP数？

xiucai315

正在使用的ip.若要知道可用的ip数，改一下上面保存数据的位置就ok 了。

xti9er

通过修改iphead的值，填入要扫描的局域网ip，对本网段的ip进行可用性统计，结果记录在iptable中，并显示可用 ...
xiucai315 发表于 2011-09-10 22:25

shell几句代码的事

    for c in 1..255;do
ping  ....
done

如果 用 perl的话 ，试着 用多线程 ，或者 输出一个比较漂亮的 报表 ，可能意义更大些  

liuyadan720

楼上兄弟：上面3行代码能搞定吗？

用fping 可以。