[Perl] equivalencia de un case

[Gunnar Wolf]

> > Voy a implementar en una programacion que tengo operativa en PERL un mo=
dulo 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 ?

Y, perd=F3n, lo olvidaba en el correo anterior: Puedes utilizar el m=F3dulo
'Switch' del CPAN.

ftp://ftp.cpan.org/pub/CPAN/modules/by-authors/Damian_Conway/Switch-2.06.re=
adme
ftp://ftp.cpan.org/pub/CPAN/modules/by-authors/Damian_Conway/Switch-2.06.ta=
r.gz

Saludos,

--=20
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF