Error al usar switch y given

[neodani]

Iniciado por jferrero

Existe el módulo Switch en CPAN: http://search.cpan.org/~rgarcia/Switch-2.16/Switch.pm aunque siempre puedes hacerlo con una batería de if(){}elsif(){}else{}

Muchas gracias lo conseguí de la siguiente forma:

switch ($host) {
case "1" { print "Seleccionaste HOSAPA01\n" }
case "2" { print "Seleccionaste HOSAPA02\n" }
case "3" { print "Seleccionaste HosIIS01\n" }
case "4" { print "Seleccionaste HosIIS02\n" }
case "5" { print "Seleccionaste HosIIS03\n" }
else { print "Selecciona una opcion valida\n" }
}