Foro - Perl en Español

por **charlygarza** » 2013-05-30 20:24 @892

Esto es lo que tengo que realizar hasta aquí. Todo bien, lo único es que quisiera que leyera varias pasadas y fuera acumulando el total de las ventas perdidas por errores... El error es como si no regresara al primer goto.

Que la transacción sea aprobada
Que la transacción sea suspendida por las siguientes causas:
* Fecha de emisión caducada
* Rebaso el límite de crédito
* No es posible obtener autorización de tarjeta utilizada
También existe la posibilidad de pagar en efectivo cuando no sea posible pagar con tarjeta de crédito
Realizar el programa que permita evaluar estas condiciones y llevar una totalización de las ventas que se pierden por tal situación

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
$mon++;
$year += 1900;
$lcredito = 1000;
$pinaut = 'abc';
 
print "FECHA HOY " . $mday . "-" . $mon . "-" . $year . "\n";
print "\n";
 
 
SEGUNDO:
for($x=1; $x<=3; $x=$x+1){
 
    print "introduzca datos de la tarjeta  \n";
    print "ingrese numero de tarjeta: ";
    chomp( $numero = <STDIN> );
    
     print "ingrese monto compra: ";
      chomp( $monto = <STDIN> );
     if ($monto > $lcredito)  {
       print"su transaccion no se puede realizar limite de credito sobrepasado \n";
        $total3=$total3 + $monto;
          goto PRIMERO;
      }
 
     print "ingrese fecha emision: ";
     print "ingrese dia:";
     chomp( $dia = <STDIN> );
     print "ingrese mes:";
     chomp( $mes = <STDIN> );
     print "ingrese anio:";
     chomp( $anio = <STDIN> );
      if ($anio < $year)  {
       print"su transacción no se puede realizar tarjeta con fecha caducada \n";
       $total1=$total1 + $monto;
       goto PRIMERO;
      }
       
     print "ingrese pin autorización: ";
     chomp( $autorizacion = <STDIN> );
     if ($autorizacion eq $pinaut)  {
       print"su transacción no se puede realizar pin autorización incorrecto \n";
        $total2=$total2 + $monto;
          goto PRIMERO;
      }
    print "\n";
}
 
PRIMERO:
 
print"desea ingresar otro dato: ";
 chomp( $opcion = <STDIN> );
 if (lc($opcion eq 'si')) 
 {
  goto SEGUNDO;
 }
 else{
 
$totalt = $total1 +$total2+$total3;
print "total ventas perdidas es $totalt";
print "\n";
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comparar fecha con variable

Comparar fecha con variable

Publicidad

Re: Comparar fecha con variable

¿Quién está conectado?