Autor Tema: Re: iguales... (Leído 4309 veces)

FEckEZ · « **en:** Viernes 14 de Marzo de 2003, 00:52 »

hola..

como puedo borrar los valores repetidos que se encuentran en un array.. por ejemplo:

$texto='mmm aaa mmm sss ss';
@partes=split(/ /,$texto);

devolveria:
partes[0]='mmm'
partes[1]='aaa'
partes[2]='mmm'
partes[3]='sss'
partes[4]='ss'

ahora, como puedo borrar los elementos iguales en esta lista... en el caso anterior, borrar del array partes[2], que es el unico repetido en este caso.

gracias

entius54

sub condense {
   my(undef,$array)=@_;
   my(@condensed);
   my($valid) = 1;
   while ($#$array >= 0) {
      foreach (@condensed) {
         $valid = 0 if ($array->

eq $_);

         }
      if ($valid) {
         push @condensed, shift @$array;
         } else {
         shift @$array;
         }
      $valid = 1;
      }

   @$array = @condensed;
   }

Donde le enviarias tu array via referencia y no te devolvería nada porque ya cambiaría el array original.

$obj->condensed(@tuarray);
por ejemplo

FEckEZ

mucho mas que interesante tu funcion.. muchisimas gracias por tu respuesta.

entius54

pues dame las grácias visitando perlattack.com

FEckEZ

ya habia estado alli y habia leido un tutorial de perl... aunque por ahora esta muy corto, esta muy bien porque no se extienden mucho en cosas que son facilmente entendibles... aunque claro esta.. seria buenisimo si vas agregando mas contenido.

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.