Programación Web y Scripting > Perl

 Re: iguales...

(1/2) > >>

FEckEZ:
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->[0] 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
:birthday::guitar::hippi::comp:

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.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente