Programación Web y Scripting > Perl

 Re: iguales...

<< < (2/2)

explorer:
Todo lo que tenga que ver con repetición, es una caso muy bueno para usar los hashes:
--- Código: Text ---    1 #!/usr/bin/perl -l    2 &#036;texto='mmm aaa mmm sss ss';    3 @partes=split(/ /,&#036;texto);    4    5 foreach my &#036;parte ( @partes ) {    6     next if &#036;ya_visto{ &#036;parte }++;    7     push @revisado, &#036;parte;    8 }    9   10 print &#34;@revisado&#34;; * Hacemos un bucle por cada uno (foreach) de los elementos de @partes.
* En la línea 6 decimos que si ya lo hemos visto, pase al siguiente elemento. Explicación: Cada $parte se introduce en la memoria asociativa %ya_visto con un valor que va creciendo (la primera vez será un 0 lo que se reciba en el if, por lo que la $parte termina guardandose (push) en @revisado. Pero si es una $parte repetida, entonces devolverá un uno (o dos o tres...) con lo que se activa el next y no se guarda.

Navegación

[0] Índice de Mensajes

[*] Página Anterior