Perl no tiene case ni switch?

[neodani]

Iniciado por jferrero

Sí, sí que lo tiene:

Código Perl:

use feature qw(switch say);
 
$variable = 'valor';
 
given ($variable) {
    when (/^\w+/) {
        say 'Una palabra';
    }
    when ('hola') {
        say 'Un saludo';
    }
    when (/\d+/) {
        say 'Contiene un número';
    }
    when (@arreglo) {
        say 'Lo tenemos dentro del arreglo';
    }
    when (\&funcion) {
        say 'El resultado de la función es verdadero';
    }
    when ($_ > 256) {
        say 'Es superior a 256';
    }
}
 

Más información: http://perldoc.perl.org/perlsyn.html#Switch-statements

Funcionó a la perfección! muchas gracias