[Perl] equivalencia de un case

[Salvador Ortiz Garcia]

On Tue, 2002-03-12 at 19:32, Alejandro G. Bedoya wrote:
> >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); } );
>=20
> >Y cuando lo requieras, la llamas as=ED:
>=20
> >   &{$tipo{$expr}};
>=20
> Porque el & ah=ED???

Porque est=E1 usando referencias a funciones, "closures" en =E9ste caso.

Saludos.

Salvador Ortiz.