Foro - Perl en Español

por **rserrano** » 2011-09-30 10:19 @472

Hola tengo una duda de si se pude recomponer un hash. Me explico:
Tengo este hash (los guiones son ejemplo para separar los datos):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

100022-Cliente1-Sucursal Principal-101-6

100022-Cliente1-Sucursal Principal-103-1

100022-Cliente1-Sucursal Principal-104-2

100022-Cliente1-Sucursal Principal-105-45

100022-Cliente1-Sucursal Principal-108-6

100022-Cliente1-Sucursal Principal-109-1

100022-Cliente1-Sucursal Principal-110-8

100024-Cliente2 -Constitucion-101-41

100024-Cliente2 -Constitucion-103-76

100024-Cliente2 -Constitucion-101-41

100024-Cliente2 -Constitucion-105-343

100024-Cliente2 -Constitucion-107-3

100024-Cliente2 -Constitucion-108-38

100024-Cliente2 -Constitucion-109-11

100024-Cliente2 -Constitucion-110-30

100024-Cliente2 -Constitucion-111-34
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y lo que quiero es consolidad toda los datos de un código de cliente así

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

100022-Cliente1-Sucursal Principal-101-6-103-1-104-2-105-45-108-6-109-1-110-8

100024-Cliente2 -Constitucion-101-41-103-76-104-195-108-38-108-38-109-11110-30-11-34
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Es posible hacer esto?

saludos

100022-Cliente1-Sucursal Principal-101-6

100022-Cliente1-Sucursal Principal-103-1

100022-Cliente1-Sucursal Principal-104-2

100022-Cliente1-Sucursal Principal-105-45

100022-Cliente1-Sucursal Principal-108-6

100022-Cliente1-Sucursal Principal-109-1

100022-Cliente1-Sucursal Principal-110-8

100024-Cliente2 -Constitucion-101-41

100024-Cliente2 -Constitucion-103-76

100024-Cliente2 -Constitucion-101-41

100024-Cliente2 -Constitucion-105-343

100024-Cliente2 -Constitucion-107-3

100024-Cliente2 -Constitucion-108-38

100024-Cliente2 -Constitucion-109-11

100024-Cliente2 -Constitucion-110-30

100024-Cliente2 -Constitucion-111-34Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

entonces podemos hacer un programa así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use utf8;
use Modern::Perl;       # Somos modernos
use autodie;            # es mejor morir que regresar con deshonor (proverbio Klingon)
 
use File::Slurp;
 
 
my %hash;
 
my @fichero = read_file('kk.txt', chomp => 1);
 
# Interpretación
for my $línea (@fichero) {
    
    # 100022-Cliente1-Sucursal Principal-101-6
    my($id, $cliente, $sucursal, $code) = split /-/, $línea, 4; # Partimos la $línea en 4 partes
 
    push @{ $hash{"$id-$cliente-$sucursal"} }, $code;           # Almacenamos en un hash de array
}
 
# Impresión
use Data::Dumper;
say Dumper \%hash;
 
# Es un hash, cuyos valores son array, cada uno guardando los códigos finales
#$VAR1 = {
#    '100024-Cliente2 -Constitucion' => [
#       '101-41',
#       '103-76',
#       '101-41',
#       '105-343',
#       '107-3',
#       '108-38',
#       '109-11',
#       '110-30',
#       '111-34'
#    ],
#    '100022-Cliente1-Sucursal Principal' => [
#       '101-6',
#       '103-1',
#       '104-2',
#       '105-45',
#       '108-6',
#       '109-1',
#       '110-8'
#    ]
#};
 
 
# Consolidación
while (my($clave,$valor_ref) = each %hash) {
    $hash{$clave} = join q[-], @{$valor_ref};
}
 
say Dumper \%hash;
 
# Es el mismo hash, pero ahora los valores son una cadena de caracteres, con la unión de todos los códigos
#$VAR1 = {
#    '100024-Cliente2 -Constitucion'      => '101-41-103-76-101-41-105-343-107-3-108-38-109-11-110-30-111-34',
#    '100022-Cliente1-Sucursal Principal' => '101-6-103-1-104-2-105-45-108-6-109-1-110-8'
#};
 
__END__
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **rserrano** » 2011-09-30 11:11 @508

Gracias por tu pronta respuesta.

Los datos ya se encuentran dentro de un hash que me lo devuelve la BD

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %dataRow = $connection->DataHash();
#esto lo hago solo para ver los valores
print $dataRow{IdSucursalCliente}."-".$dataRow{Nombre}."-".$dataRow{Sucursal}."-".$dataRow{IdDenominacion}."-".$dataRow{Cantidad}."<br>";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El resultado es la lista anterior mostrada.

Lo que tengo que consolidar son cuantas cantidades tiene cada sucursal.
Ejemplo
100022 Cliente1 Sucursal Principal 101=6 103=1-104=2-105=45-108=6-109=1-110=8
Interpretación: el cliente1 tiene 6 cantidades del código 101, 1 cantidad del código 103, etc....

A ver si me logro dar a entender.

Gracias.

por **panterozo** » 2011-09-30 15:35 @691

No sé si haya algo que no se pueda hacer en Perl, quizás componer una sinfonía, pero el resto, yo creo se puede con Perl :p…

Saludos

por **rserrano** » 2011-09-30 15:42 @696

Gracias, estoy intentando todavía, pero mi nivel es muy básico.

Saludos.

por **explorer** » 2011-10-01 05:35 @274

Bueno, pues si el hash con los datos ya lo tienes, solo te queda ir creando el hash que recopile la información:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

push
    @{ $hash{"$dataRow{IdSucursalCliente}-$dataRow{Nombre}-$dataRow{Sucursal}"} },
        "$dataRow{IdDenominacion}-$dataRow{Cantidad}";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el resto es igual...

por **rserrano** » 2011-10-01 09:54 @454

explorer escribiste:Bueno, pues si el hash con los datos ya lo tienes, solo te queda ir creando el hash que recopile la información:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
push

@{ $hash{"$dataRow{IdSucursalCliente}-$dataRow{Nombre}-$dataRow{Sucursal}"} },

"$dataRow{IdDenominacion}-$dataRow{Cantidad}";

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

y el resto es igual...

Gracias, explorer, sin duda voy a pasar a dar mi grano de arena en los donativos.

saludos-

Foro - Perl en Español

Recomponer un hash

Recomponer un hash

Publicidad

Re: Recomponer un hash

Re: Recomponer un hash

Re: Recomponer un hash

Re: Recomponer un hash

Re: Recomponer un hash

Re: Recomponer un hash

¿Quién está conectado?