Foro - Perl en Español

Muy buenos días.

Me gustaría saber si me pueden apoyar, por favor, con el siguiente caso:

Tengo un archivo de entrada el cual adjunto (Archivo_Entrada.csv), que contiene cuatro columnas, donde las columnas a imprimir son las 1, 2 y 4, siendo diferentes las filas a "Instrument" y "Cash" de la columna 2, trasponiendo "Pensiones, PBG, PBGVto, PBGMdo, Seguros, PIB, SBG, SBGVto, SBGMdo" de la columna 2 como encabezado con sus respectivos valores de la columna 1 y 4, como se muestra en el archivo adjunto de salida (Archivo_salida.csv).

Espero que me expliqué y gracias de antemano por el apoyo.

Saludos cordiales.

Esta es una posible solución:
La salida es idéntica a la esperada. Prueba:

Código: Seleccionar todo

$ diff -s Archivo_salida_org.csv Archivo_salida.csv
Los ficheros Archivo_salida_org.csv y Archivo_salida.csv son idénticos

Hola, explorer... ¡Muy buen día! Excelente información, como siempre.

Ya estoy probando el código y me arroja el siguiente error de la línea 36. He buscado la causa del error pero no doy con la solución en relación al patrón de búsqueda. ¿Crees que sea la ejecución del programa o algo en la sintaxis?

Search pattern not terminated at Cambia_formato_reportes_PnL_final.pl line 36.

línea 36:
say $salida join q[,], $fecha, map { $transacciones{$fecha}{$_} // '' } @cabeceras;

Muchas gracias.

Hola.

El error te sale porque has quitado la línea

use v5.16;

Las dos barras diagonales no son una expresión regular, sino el operador defined-or, que está disponible desde la versión Perl v5.10.0.

Si tienes un Perl distinto a v5.16, pero superior a v5.10, pues esa es la versión que debes poner en el 'use'.

Perfecto... es como lo mencionas, yo tengo la versión "This is perl, v5.8.4 built for sun4-solaris-64int" ¿qué se podría hacer para que funcione con esta versión(v5.8.4)?

Gracias y Saludos.

La versión v5.8.4 salió el 21 de abril de 2004... hace más de nueve años... tienes un sistema muy antiguo, pero viendo que es un Solaris, no me extraña

Por fortuna, Perl mantiene una buena compatibilidad, así que es posible hacer unos pequeños cambios para que funcione en algo tan arcaico.

• debes cambiar todos los say() por print() con un "\n" al final
• ya que tampoco te sirve 'autodie', debes poner 'or die...' a todos los open()
• la expresión
  
  $transacciones{$fecha}{$_} // ''
  
  la debes cambiar por
  
  defined($transacciones{$fecha}{$_}) ? $transacciones{$fecha}{$_} : ''

Así es... explorer, es muy antiguo mi sistema Ya realicé los ajustes y ya está funcionando, te agradezco mucho tu apoyo y que estés bien...

¿Qué tal...? Muy buenas tardes.

De nuevo con este tema de transponer. Quisiera saber si me pueden apoyar ya que estoy utilizando el código relacionado a este tema y necesita añadir en el archivo de salida los encabezados >>MXP >>USD >>UDI correspondientes a cada línea del archivo de entrada, pero el resultado no es el esperado sobre estos encabezados específicamente ya que imprime el último encontrado (de >>MXP >>USD >>UDI) por cada fecha.

Adjunto los archivos ejemplo de entrada (Rep_PnL_X_Mon_SP.csv) y salida (Reporte_PnL_X_Mon_SP.csv)

¡Muchas gracias!

---------------------------------------------------------------------------------------
#!/usr/bin/perl

#use v5.8.4;
#use autodie;

my %transacciones;
my $contenido;
my $encabezado;
#my $fecha = time ();

open my $entrada, '<:crlf', '/herramientas/Algorithmics/riesgos_m/riesgos_p/20140331/riskwatch/reports/Rep_PnL_X_Mon_SP.csv'; # es de tipo MSDOS
while (<$entrada>) {
next if /(^Reporte|Instrument|Cash)/; # saltamos las lineas no interesantes
chomp; # quitamos fin de linea

my @campos = split /[,]/; # partimos

next if @campos != 4; # comprobamos que son 4 campos

my($fecha, $tipo, undef, $valor) = @campos;

$transacciones{ $fecha }{ $tipo } = $valor; # guardamos el dato
}
close $entrada;

#use Data::Dumper;
#say Dumper \%transacciones;

my @cabeceras = qw(
Pensiones >>MXP PBG >>MXP PBGVto >>MXP PBGMdo >>UDI
Seguros >>MXP PIB >>MXP SBG >>MXP SBGVto >>MXP SBGMdo >>MXP SBGMNoVida >>NXP SBGMVida
PBGVOtro >>UDI >>MXP PBGVRva >>UDI >>MXP SBGVVida >>UDI >>MXP SBGVNoVida >>USD >>UDI >>MXP
SEGPATR >>USD >>UDI >>MXP SEGPAVC >>UDI >>MXP SEGPAVE >>UDI >>MXP SEGPAVM >>UDI >>MXP SEGPAS >>UDI >>MXP SEGCREC
);

open my $salida, '>:crlf', '/herramientas/Algorithmics/riesgos_m/riesgos_p/20140331/riskwatch/reports/Reporte_PnL_X_Mon_SP.csv'; # salida en formato MSDOS

$encabezado = join q[,], "", @cabeceras; # cabeceras en salida
print $salida "Reporte: Reporte_PnL_X_Mon_SP.csv\n\n\n";
#print $salida $fecha;
print $salida $encabezado."\n";

for my $fecha (reverse sort keys %transacciones) { # salida de fechas en orden alfabético inverso

$contenido = join q[,], $fecha, map { defined($transacciones{$fecha}{$_}) ? $transacciones{$fecha}{$_} : '' } @cabeceras;
print $salida $contenido."\n";
}

close $salida;

Pues... a mi me funciona...

Quiero decir, que el programa me genera esa salida.

¿Qué tal, explorer...?

Aquí adjunto el archivo que debería de salir(Archivo_Salida_Bueno.csv) lo edité a mano, el detalle es que por decir en los siguientes tres bloques del archivo de entrada los encabezados ">>MXP" no corresponden en el archivo de salida que primero mandé (Reporte_PnL_X_Mon_SP.csv) y así sucesivamente con los demás bloques.

¡Muchas gracias!

Primer bloque del archivo de Entrada:

Segundo bloque del archivo de entrada:

Tercer bloque del archivo de entrada: