[perl] if - else

[Salvador Ortiz Garcia]

On Tue, 1 Dec 1998, Ma Enriqueta Barilla Perez wrote:


> El siguiente control de flujo no jala. Yo quisiera, que dependiendo de
> cada valor $indice tome su archivo correcto.

Como el código que pones no es muy perliano que digamos, que te parece
algo como:

  %indices=(home         => '../html/busqueda/home.dat',
            normatividad => '../html/busqueda/normatividad.dat',
            informacion  => '../html/busqueda/informacion.dat',
            tramitel     => '../html/busqueda/tramitel.dat',
            escuelas     => '../html/busqueda/escuelas.dat',
  );

  $indice = $indice{$topico} || '../html/busqueda/planes.dat';

Y en tu caso concreto la inicialización de %indices se reduciría a:

  %indice = map { $_ => "../html/busqueda/$_.dat" } 
	qw(home normatividad informacion tramitel escuelas);


Saludos

Salvador Ortiz



--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl