Changeset 109

Timestamp:

Mar 12, 2012, 10:34:44 PM (13 years ago)

Author:

g7moreau

Message:

• Shuffle list before clean it. We just need to test between the most recent date, with shuffle, te newrest date will change everytime...

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -17 +17 @@
 use Net::CIDR::Lite;
 use NetAddr::IP;
-use Getopt::Long qw(GetOptions GetOptionsFromArray);;
+use Getopt::Long qw(GetOptions GetOptionsFromArray);
 use Socket;
+use List::Util 'shuffle';
 
 # apt-get install snmp fping libnet-cidr-lite-perl libnet-netmask-perl libnet-snmp-perl libnetaddr-ip-perl libyaml-perl
@@ -847 +848 @@
    my %mactimedb = ();
    ALL_VLAN:
-   for my $vlan (@vlan_name) {
-
-      my @ip_list   = get_list_ip($vlan);
+   for my $vlan (shuffle @vlan_name) {
+
+      my @ip_list   = shuffle get_list_ip($vlan);
       
       LOOP_ON_IP_ADDRESS: