Foro - Perl en Español

por **josele** » 2014-03-29 17:33 @773

Buenas noches.

Me estoy volviendo loco pues he de realizar una pequeña modificación en un programa de facturación y no encuentro cómo hacerlo.

El asunto es que el programa en Perl ha de abrir un fichero donde se encuentra el número de cliente y el número de la última factura, algo así como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

987;1

1030;1

987;2

1030;2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

compararlo con el número de cliente que se está facturando.

El programa ha de quedarse con el último número, excepto si el número de cliente no existe aún en dicho fichero en cuyo caso el número de factura ha de ser "1", y sumarle uno y después grabar los datos de la última factura en el fichero.

Lo he conseguido si solo manejo un cliente, pero en cuanto meto más de uno no sé por qué pero siempre me asigna 1 a todas las facturas.

Aquí está mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Generamos y comprobamos el número de la factura.
 
open( NoFACTURAS, "NoFACTURAS.txt" ) || die "ERROR";
while (<NoFACTURAS>) {
    ( $id_nofac, $_nofac ) = split /;/, $_;
 
    # Eliminamos el salto de linea de la variable $_nofac.
    chomp($_nofac);
    if ( $matricula eq $id_nofac ) {
        print "ID coincide $id_nofac\n";
        print "Número de factura anterior $_nofac\n";
        $_nofac++;
        print "No factura +1 = $_nofac\n";
    }
}
if ( $_nofac eq '' )                   # Si no hay número de factura anterior entonces...
{
    $_nofac = "1"                      # el número de factura es 1
}
print "factura número $_nofac\n";
print "matricula número $matricula\n";
print "id_nofac número $id_nofac\n";
 
# Grabamos la línea de la nueva factura
close(NoFACTURAS);
open( SALIDANoFACTURAS, ">>NoFACTURAS.txt" ) || die "ERROR";
print SALIDANoFACTURAS "$matricula;$_nofac\n";
close(SALIDANoFACTURAS);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Al final siempre el número de factura es "1".

¿Alguien ve dónde he metido la pata?

Muchas gracias.
--
Josele

No veo el error, pero es muy posible que sea debido a la presencia de espacios en blanco al final del archivo.

En el bucle while estás leyendo el código de la última factura, pero no estás comprobando que lo esté haciendo bien. Si la última línea del archivo está en blanco, $_nofac será '' al final del bucle, por lo que te genera una factura 1.

Y... si no lo he entendido mal, creo que hay otro error: Si vas a llevar una numeración de facturas distinta por cada cliente, debes recordar cuál es el último número de factura de ese cliente. Si solo usas $_nofac para guardar ese número, fíjate que es actualizado por cada línea del archivo. Si da la casualidad de que la última línea del archivo sí coincide con el id del cliente, entonces $_nofac sí que coincide con el último número de factura de ese cliente. Pero esto no es lo normal. Lo normal es que el archivo puede terminar con cualquier cliente. Y el último $_nofac que salga será el de ese cliente, que no coincidirá con el de $matricula.

Esta es una solución. Se ejecuta pasándole como primer argumento el número de cliente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Generamos y comprobamos el número de la factura.
#
# Ejemplo:
#
# perl code_36993_1.pl 987
#
 
my $matricula = shift;  # el número de matrícula se lo pasamos por argumento
 
open( NoFACTURAS, "NoFACTURAS.txt" ) or die "ERROR";
 
my $ultima_nofac = 0;                                           # inicializamos a cero por si es un nuevo cliente
 
while (<NoFACTURAS>) {
    my ( $id_nofac, $_nofac ) = split /[;]/;
 
    # Eliminamos el salto de linea de la variable $_nofac.
    chomp($_nofac);
    if ( $matricula eq $id_nofac ) {
        print "ID $matricula. Factura $_nofac\n";
        $ultima_nofac = $_nofac;
    }
}
 
close(NoFACTURAS);
 
$ultima_nofac++;                                                # siguiente
 
print "Nueva factura: $matricula. Factura $ultima_nofac\n";
 
                                                                # Grabamos la línea de la nueva factura
open( SALIDANoFACTURAS, ">>NoFACTURAS.txt" ) or die "ERROR";
print SALIDANoFACTURAS "$matricula;$ultima_nofac\n";
close(SALIDANoFACTURAS);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **josele** » 2014-03-31 12:28 @561

Muchísimas gracias, era justo eso, cambiar el nombre a la variable una vez obtenida para evitar que se confundiera con las siguientes lecturas.

En mi caso he quitado los "my" pues necesito que esos valores vayan mas allá de la subrutina.

Gracias de nuevo y enhorabuena por tu trabajo en el foro.
--
Josele

Foro - Perl en Español

Fichero contador de facturas

Fichero contador de facturas

Publicidad

Re: Fichero contador de facturas

Re: Fichero contador de facturas

¿Quién está conectado?