Re^6: Adding a numeric key to list items and creating a user selection list

Update

Resolved

Maybe not the best solution but I changed the check to...

foreach my $i (@vdblist){
    
    if ($i == 0){
        print BOLD WHITE ON_RED, "Error: $i does not correspond to a h
+ost in the list!", RESET;
        print "\n\n";
        goto CLUSTER_HOSTS;        
    }
    elsif ($i > scalar $#vdbhosts){
        print BOLD WHITE ON_RED, "Error: $i does not correspond to a h
+ost in the list!", RESET;
        print "\n\n";
        goto CLUSTER_HOSTS;
    }
}
[download]

Now it works!

Comment on Re^6: Adding a numeric key to list items and creating a user selection list Download Code