Tengo un archivo CSV del cual solo quiero extraer determinadas columnas y todas las filas menos la segunda (primer problema), e insertarlo en otro archivo CSV. Pero el archivo origen es dinámico, mejor dicho: cambia el nombre de éste (segundo problema).
Hasta ahorita ya tengo un desarrollo con la ayuda de la biblioteca Text::ParseWords.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Text::ParseWords;
- my ( $i, $archivo_final );
- open( FORMAT_FONT, "</home/osboxes/Desktp/pmresult_50331650_60_201505312300_2015061000.csv" )
- || die "No se puede abrir el archivo\n";
- open( FORMAT_DO, ">salida.csv" )
- || die "No se puede crear el archivo\n";
- chmod 0777, "salida.csv";
- while ( $registro = <FORMAT_FONT> ) {
- chomp;
- @campo = quotewords( ",", 0, $registro );
- $archivo_final = "$campo[0],$campo[2],$campo[5]";
- open( FORMAT_SCAPI, "salida.csv" ) || die "No se puede abrir el archivo\n";
- print FORMAT_SCAPI $archivo_final . "\n";
- $i++;
- }
- close(FOMAT_FONT);
- print "\n\t Operación realizada con éxito";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Gracias por la ayuda, de antemano