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