Foro - Perl en Español

por **charlygarza** » 2013-05-21 22:30 @979

Buenas, necesito su ayuda con este problema:

Quisiera realizar la eliminación dentro de una lista asociativa pero sin hacerlo de forma manual tal y como está ahora en mi código, sino por medio de algún for() o si existe otra forma. De la lista se eliminan los datos uno, tres y siete; se tiene que mostrar la lista antes de la eliminación, los números a eliminar y la lista después de la eliminación.

#!/usr/bin/perl
%datos = ("UNO", 1, "DOS", 2, "TRES", 3,"CUATRO", 4,"CINCO", 5,"SEIS", 6,"SIETE", 7,"OCHO", 8,"NUEVE", 9,"DIEZ", 10,"ONCE", 11,"DOCE", 12);

print "LISTA ASOCIATIVA ANTES DE LA ELIMINACIÓN \n";

print "$datos{'UNO'}, $datos{'DOS'}, $datos{'TRES'}, $datos{'CUATRO'}, $datos{'CINCO'}, $datos{'SEIS'} " ;
print "$datos{'SIETE'}, $datos{'OCHO'}, $datos{'NUEVE'}, $datos{'DIEZ'}, $datos{'ONCE'}, $datos{'DOCE'} \n" ;

print "LISTA NÚMEROS A ELIMINAR \n";
print "$datos{'UNO'},$datos{'TRES'},$datos{'SIETE'}";
delete $datos{'UNO'},$datos{'TRES'},$datos{'SIETE'};

print "\nLISTA CON DATOS ELIMINADOS \n";
print "$datos{'DOS'}, $datos{'CUATRO'}, $datos{'CINCO'}, $datos{'SEIS'} " ;
print " $datos{'OCHO'}, $datos{'NUEVE'}, $datos{'DIEZ'}, $datos{'ONCE'}, $datos{'DOCE'} \n" ;

#!/usr/bin/perl
use feature 'say';
 
%datos = (
    UNO    => 1,
    DOS    => 2,
    TRES   => 3,
    CUATRO => 4,
    CINCO  => 5,
    SEIS   => 6,
    SIETE  => 7,
    OCHO   => 8,
    NUEVE  => 9,
    DIEZ   => 10,
    ONCE   => 11,
    DOCE   => 12,
);
 
say "LISTA ASOCIATIVA ANTES DE LA ELIMINACIÓN";
while(($clave, $valor) = each(%datos)) {
    printf("%6s => %s\n", $clave, $valor);
}
 
print "LISTA NÚMEROS A ELIMINAR \n";
my @a_borrar = qw( UNO TRES SIETE );
 
print join(',', @datos{@a_borrar}), "\n";
 
for $c (@a_borrar) {                      # este bucle es lo mismo que escribir delete @datos{@a_borrar};
    delete $datos{$c};
}
 
say "LISTA CON DATOS ELIMINADOS";
while(($clave, $valor) = each(%datos)) {
    printf("%6s => %s\n", $clave, $valor);
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

LISTA ASOCIATIVA ANTES DE LA ELIMINACIÓN

  TRES => 3

  OCHO => 8

 CINCO => 5

  DOCE => 12

  ONCE => 11

  DIEZ => 10

 SIETE => 7

CUATRO => 4

  SEIS => 6

   UNO => 1

   DOS => 2

 NUEVE => 9

LISTA NÚMEROS A ELIMINAR 

1,3,7

LISTA CON DATOS ELIMINADOS

  OCHO => 8

 CINCO => 5

  DOCE => 12

  ONCE => 11

  DIEZ => 10

CUATRO => 4

  SEIS => 6

   DOS => 2

 NUEVE => 9Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **charlygarza** » 2013-05-22 09:42 @446

Muchas gracias.

Justo la respuesta que esperaba.

Foro - Perl en Español

Eliminación en lista asociativa

Eliminación en lista asociativa

Publicidad

Re: Eliminación en lista asociativa

Re: Eliminación en lista asociativa

¿Quién está conectado?