case en perl

Salvador Spataro sspataro at cantv.net
Tue Apr 24 06:52:09 CDT 2001


Transcribo el mensaje de Ernesto:

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; };
}
--
no entiendo
¿como funciona?

Me parecío el mejor lugar para preguntar (y hacer un poquito de tráfico)

Se despide
Salvador



------------------------------------------------------------------------
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