[Perl] equivalencia de un case

[Alejandro G. Bedoya]

>A m=ED me gusta abundar un poco en esto, si vas a pasar seguido por =
esta
>construcci=F3n:
>%tipo =3D ( 'a' =3D> sub { print "Es de tipo A\n"; },
>          'b' =3D> sub { print "No, no me gusta...\n"; },
>          'c' =3D> sub { otraCosa(1,2); } );

>Y cuando lo requieras, la llamas as=ED:

>   &{$tipo{$expr}};

Porque el & ah=ED???


---
Sinceramente...
Alejandro G. Bedoya
InterAccion.COM          Ponemos su Internet en Acci=F3n