[Perl] equivalencia de un case

[Salman PSL]

Voy a implementar en una programacion que tengo operativa en PERL un =
modulo de traduccion por llamarlo de alguna forma.

Se trata de hacer algo como el sistema que utiliza el php-nuke

Pero PERL no tiene ninguna sentencia equivalente.

A mi se me ha ocurrido lo siguiente:

sub TomarMensaje {
 my ($MensajeNumero) =3D @_ ;
 SWITCH:
 {
  if ($MensajeNumero eq "0001") { $MensajeTexto=3D"Mensaje Numero uno"; =
last SWITCH; }
  if ($MensajeNumero eq "0002") { $MensajeTexto=3D"Mensaje Numero DOS"; =
last SWITCH; }
 }

 return $MensajeTexto;
}

=BF A alguien se le ocurre algo mas elegante y sencillo ?


Saludos
Salvador Guzman
Salman PSL
Vigo, Galicia, Espa=F1a
+34 986-21.30.27
+34 627-505-999
Correo@Salman.ES
http://salman.net/
http://aseara.com/