Select Code to Download

sub setManagers() {

        my $getInputFlag = 1;
        my $writeFileFlag = 1;
        my $mCounter = 0;

        my $ans = &promptUser("Do you wish to configure SNMP Managers 
+on $var? ", "yes");

        if ($ans =~ /^[n]o?/i) {

          if ($address =~ /^(([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-
+5])\.){3}([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])$/)

(?:[3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])

                $managers[$mCounter]{address} = $address;
                $managers[$mCounter]{port} = $port;
                $managers[$mCounter]{version} = $version;
                $managers[$mCounter]{community} = $community;

@{ $managers[$mCounter] }[qw/address port version community]=
  ($address $port $version $community);

                my $numOfManagers = scalar(@managers);

                print FILE "manager.total=$numOfManagers\n";

                for (my $i=0; $i<$numOfManagers; $i++) {

for my $i (0..$#managers) { ... }

for my $item (@managers) { ... }