¿Cómo hacer un case en Perl?

Ernesto Hernandez-Novich emhn at telcel.net.ve
Wed Apr 18 14:14:49 CDT 2001


Ayer me preguntaron,

"En C, se escribe

char c;

switch (c) {
  case 'a': <codigo-para-a>; break;
  case 'b': <codigo-para-b>; break;
    ...
  default : <codigo-por-defecto>; break;
}

¿cómo hacerlo en Perl?"

for ($c) {
  /^a$/ and do { <codigo-para-a>; last; };
  /^b$/ and do { <codigo-para-b>; last; };
   ...
  /^.$/ and do { <codigo-por-defecto>; last; };
}
-- 
Ernesto Hernández-Novich - Running Linux 2.4.2 i686 - Unix: Live free or die!
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/E d+(++) s+: a C+++$ UBLAVHIOSC*++++$ P++++$ L+++$ E- W+ N++ o K++ w--- O-
M- V PS+ PE Y+ PGP>++ t+ 5 X+ R* tv+ b++ DI+++$ D++ G++ e++ h r++ y+
-----END GEEK CODE BLOCK-----

------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------



More information about the caracas-pm mailing list