分享我的局域網(wǎng)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的值，填入要掃描的局域網(wǎng)ip，對本網(wǎng)段的ip進行可用性統(tǒng)計，結(jié)果記錄在iptable中，并顯示可用ip數(shù)。

Perlvim

可用的IP數(shù)，是指正在使用的IP數(shù)，還是能用的IP數(shù)？

xiucai315

正在使用的ip.若要知道可用的ip數(shù)，改一下上面保存數(shù)據(jù)的位置就ok 了。

xti9er

通過修改iphead的值，填入要掃描的局域網(wǎng)ip，對本網(wǎng)段的ip進行可用性統(tǒng)計，結(jié)果記錄在iptable中，并顯示可用 ...
xiucai315 發(fā)表于 2011-09-10 22:25

shell幾句代碼的事

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

如果 用 perl的話 ，試著 用多線程 ，或者 輸出一個比較漂亮的 報表 ，可能意義更大些  

liuyadan720

樓上兄弟：上面3行代碼能搞定嗎？

用fping 可以。