Foro - Perl en Español

por **explorer** » 2013-12-16 14:54 @663

Sí, hemos metido la pata.

isdigit() solo devuelve verdadero si el argumento es un entero. Mejor dicho: solo devuelve verdadero si el argumento es un carácter entre '0' y '9', incluidos (más información en man 3 isdigit).

Entonces... lo podemos resolver de otra manera, por medio de una expresión regular.

Eliminamos la línea 2 y cambiamos la 41 por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            $dato = 'NaN' if $dato !~ /^[\d.,+-e]+$/i;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Así, miramos a ver que $dato coincida con ese patrón (dígitos, '.', ',', '-', '+', y 'e' -exponente-). Si no es así, lo marcamos como NaN.

Si te falla porque hay algunas celdas con espacios en blanco, se puede hacer un $dato += 0; para pasarlo a número, antes de lo del NaN.

O de otra manera: si sospechamos que la celda puede tener espacios en blanco o caracteres extraños aparte de los números, se pueden extraer con un expresión regular, y comprobarlo después:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            my($dato) = $HOJA->[$columna]->[$fila] =~ /^([\d.,+-e]+)$/i;
 
            $dato = 'NaN' if not $dato;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lamento no haberme explicado bien.

Efectivamente, en el archivo Excel existen casillas que contienen más de un dato (como el ejemplo anterior) y otras celdas que tienen uno solo. En las casillas que existen dos datos (tanto números, letras y/o símbolos) reemplazarlos por el carácter NaN (un solo carácter) cosa que todas las celdas de la hoja o planilla Excel contengan un dato.

por **explorer** » 2013-12-19 13:42 @612

Bueno, pues entonces son varias las condiciones:

1- Si la celda no tiene nada, no hacer nada
2- Si la celda contiene un número, quedarse con él
3- En los demás casos, cambiarlo por 'NaN'

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;                                               # necesario para el operador '//'
 
my $celda = $HOJA->[$columna]->[$fila] // '';            # leemos la celda. Si no contiene un valor definido, se lo ponemos a ''
my $dato  = $celda;                                      # el $dato, será, de principio, igual a la $celda
 
if ($celda) {                                            # si la celda contiene algo
    ($dato) = $celda =~ /^([\d.+e-]+)$/i;                # comprobamos que la $celda contiene un dato numérico
    $dato = 'NaN' if not defined $dato;                  # si no hemos encontrado un $dato numérico, le asignamos 'NaN'
}
 
print "$dato\n";                                         # nuevo valor de la celda
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Ojo! los paréntesis que rodean a $dato, son importantes

por **lis** » 2013-12-19 16:00 @708

Lo que hace el código es identificar los caracteres que no sean números y los reemplaza por NaN. Lo que pido es que si encuentra una celda que contenga números y letras juntos que los reemplace por un solo NaN. Disculpa si molesto mucho :oops:

por **explorer** » 2013-12-19 18:45 @823

Perdona, pero mi código sí que hace eso: cuando $celda contiene letras y números, los cambia por 'NaN'.

Por favor, prueba mi código con diferentes valores de $celda. Si encuentras un valor de $celda que no funcione, publícalo aquí.

por **lis** » 2013-12-27 08:55 @413

Hola perleros, espero que hayan pasado unas lindas fiestas junto a sus seres queridos

explorer, aún no soluciono mi problema por lo que adjunto un archivo Excel muy parecido al que debo ocupar donde en la parte inferior indica qué significa cada marca. En resumen, las celdas que contengan números, letras y un signo negativo juntos, se deben reemplazar por el carácter 'NaN'. En cambio, si las celdas contienen números, letras y un signo positivo juntos se debe dejar el solo número, pero este código no lo hace, al menos a mí no me funciona

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use warnings;
use Spreadsheet::Read;
use v5.10;
 
## Constantes
my $year  = 2013;
my $ruta  = "/home/modelacion/Escritorio/excel_perl";
my @meses = (
          [ 'Enero', 'January', 31 ],
    #     [ 'Febrero',         'February',     29 ],
    #     [ 'Marzo',           'March',        31 ],
    #     [ 'Abril',           'April',        30 ],
    #     [ 'Mayo',            'May',          31 ],
    #     [ 'Junio',           'June',         30 ],
    #     [ 'Julio',           'July',         31 ],
    #     [ 'Agosto',          'August',       31 ],
    #     [ 'Septiembre',      'September',    30 ],
    #     [ 'Octubre',         'October',      31 ],
    #     [ 'Noviembre',       'November',     30 ],
    #     [ 'Diciembre',       'December',     31 ],
);
 
## Proceso
open my $OUT, '>', 'datos.txt';
 
for my $mes (@meses) {                                     # para todos los meses
 
    my ( $mes_spa, $mes_eng, $mes_dias ) = @{$mes};
 
    my $ref  = ReadData("$ruta/Inf-WS-$mes_eng$year.xls");
    my $HOJA = $ref->[1]->{cell};
 
    for my $fila ( 1 .. 48 ) {                             # para todas las filas
        my @fila;
 
        for my $columna ( 1 .. $mes_dias ) {               # para todas las columnas
 
            my $celda = $HOJA->[$columna]->[$fila] // '';  # leemos la celda. Si no contiene un valor definido, se lo ponemos a ''
            my $dato = $celda;                             # el $dato, será, de principio, igual a la $celda
 
            if ($celda) {                                  # si la celda contiene algo
 
                ($dato) = $celda =~ /^([\d.+e-]+)$/i;      # comprobamos que la $celda contiene un dato numérico
                $dato = 'NaN' if not defined $dato;        # si no hemos encontrado un $dato numérico, le asignamos 'NaN'
            }
 
            push @fila, $dato;
        }
        print $OUT "@fila\n";
    }
}
close $OUT;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

Foro - Perl en Español

Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Publicidad

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

¿Quién está conectado?