Los molesto para realizarles una consulta.
Tengo las siguientes regex las cuales se encargan de escribir en un Excel, el problema es que no queda como yo necesito.
Digamos obtengo:
Como pueden ver la información se encuentra alojada correctamente en su columna, pero recién comienza debajo de donde termino la información de su columna anterior, necesito que comiencen todos en la misma fila.
Using perl Syntax Highlighting
- { ... ... . }
- my $columna = 0;
- opendir( DIR, '.' );
- while ( my $linea = <INPUT> ) {
- undef @primera;
- undef @segunda;
- undef @tercera;
- if ( $linea =~ m/^.*testing/ ) {
- my $fila = 0;
- @primera = `grep -e \"^primera columna\" -A50 \"$file\"`;
- @segunda = `grep -e \"^segunda columna\" -A50 \"$file\"`;
- @tercera = `grep -e \"^tercera columna\" -A50 \"$file\"`;
- while (<INPUT>) {
- if (m/^nombre\s"(.*)"/) {
- $nombre = $1;
- }
- }
- $worksheet = $workbook->add_worksheet("$nombre");
- $worksheet->write( $fila++, 0, "columna 1" );
- $worksheet->write( $fila++, 1, "columna 2" );
- $worksheet->write( $fila++, 2, "columna 3" );
- seek INPUT, 0, 0;
- foreach $primera (@primera) {
- if ( $primera !~ m/^*.primera/ ) {
- last;
- }
- else {
- $worksheet->write( $fila++, 0, "$primera" );
- }
- }
- foreach $segunda (@segunda) {
- if ( $segunda !~ m/^*.segunda/ ) {
- last;
- }
- else {
- $worksheet->write( $fila++, 1, "$segunda" );
- }
- }
- foreach $tercera (@tercera) {
- if ( $tercera !~ m/^*.tercera/ ) {
- last;
- }
- else {
- $worksheet->write( $fila++, 2, "$tercera" );
- }
- }
- $columna++;
- last;
- }
- }
- close INPUT;
- }
- closedir DIR;
Coloreado en 0.007 segundos, usando GeSHi 1.0.8.4
