## EJECUTA UNA CONSULTA AL BPERROR PARA SACAR LOS ERRORES
$ejecucion=`bperror -U -backstat -s info -d 04/14/08 -e 04/14/08`;

## LO VOLCAMOS A UN FICHERO AUXILIAR PARA LEERLO
## PARA ESO PRIMERO LO TENEMOS QUE GENERAR Y ABRIR
open (AUXILIAR,">C:/auxiliar.txt");

## DESPUES LE VOLCAMOS LOS DATOS DE LA VARIABLE
print AUXILIAR $ejecucion;

## LO CERRAMOS PARA GUARDARLO
close (AUXILIAR);

## LO LEEMOS Y RECORREMOS PARA METER EN UNA ARRAY LAS LINEAS CON ERROR 0 Y 1
## LAS EXPLICACIONES DE LOS ERRORES LAS OBVIAMOS
## LOS ERRORES DISTINTOS DE 0 Y 1 LOS METEMOS EN OTRO FICHERO
## CONTABILIZAMOS TODO

## SE INICIALIZAN LAS VARIABLES
$totales=0;
$errores_0_1=0;
$errores_196=0;
$todo_errores=0;

## LO ABRIMOS PARA LEERLO DE NUEVO

open (AUXILIAR,"C:/auxiliar.txt");

## AÑADIMOS CADA LINEA A UNA MATRIZ

@registros=<AUXILIAR>;

## LO RECORREMOS BUSCANDO EN LA CADENA DEL PRINCIPIO
## TODO LO DISTINTO A "(" LO CONTAMOS EN LA VARIABLE TOTALES

foreach <>\( (@registros);
$totales=$totales+1;
 
## TODO LOS ERRORES A 196 LO CONTAMOS Y LO METEMOS EN OTRO FICHERO
## Y COMO SON ERRORES TAMBIEN SE CONTABILIZA EN TODOS_ERRORES
 if ($registros =~/^196)/)
 {
 $errores_196 = $errores_196 + 1;
 $todo_errores = todo_errores + 1;
 open (fichero_196, ">C:/errores_196.txt");
 print fichero_196 $registros;
 }
## TODOS LOS ERRORES DISTINTOS A "0" O "1" SE MANDAN A OTRO FICHERO
        else if (($registros =~/^  0/)||($registros =~/^  1/))
        {
        open (fichero_dist_0, ">>C:/errores_0_y_1.txt");
        print fichero_dist_0 $registros;
        }

## EL RESTO DE LOS ERRORES LOS VOLCAMOS A OTRO FICHERO Y LOS CONTAMOS
open (fichero_dist_0, ">C:/errores.txt");
print fichero_dist_0 @registros;

foreach <>\( (@registros);

foreach ( @registros ) {
    $totales++ if ! /^\(/;
}

@registros=<AUXILIAR>;

use warnings;
use strict;

#!/usr/bin/perl
use warnings;
use strict;

my @consulta = qx(bperror -U -backstat -s info -d 04/14/08 -e 04/14/08);

my $totales;
my $errores_196;
my $errores_0_1;
my $errores;

open (LINEAS196, ">errores_196.txt"  );
open (LINEAS0Y1, ">errores_0_y_1.txt");
open (LINEASNO0, ">errores.txt"      );

foreach my $linea ( @consulta ) {
    $totales++;

    my ($comienzo) = $linea =~ /^\s*(\d+)/;      # Nos quedamos con el primer número de la línea

    if ( not defined $comienzo ) {
        $errores++;
        print LINEASNO0 $linea;
    }
    elsif ( $comienzo == 196 ) {
        $errores_196++;
        print LINEAS196 $linea;
    }
    elsif ( $comienzo == 0 or $comienzo == 1 ) {
        $errores_0_1++;
        print LINEAS0Y1 $linea;
    }
    else {
        $errores++;
        print LINEASNO0 $linea;
    }
}

close LINEAS196;
close LINEAS0Y1;
close LINEASNO0;

print "Totales: $totales\n";
print "Líneas 196: $errores_196\n";
print "Líneas 0y1: $errores_0_1\n";
print "Líneas no0: $errores\n";

__END__

    if ( $comienzo eq '196' ) {
    if ( $comienzo eq '  0' ) {
    if ( $comienzo eq '   ' ) {  # para las líneas de los paréntesis

foreach my $linea ( @consulta ) {
    $totales++;

    if ( my ($comienzo) = $linea =~ /^\s*(\d+)/ ) {

        if ( $comienzo == 196 ) {
            $errores_196++;
            print LINEAS196 $linea;
            next;
        }
        elsif ( $comienzo == 0 or $comienzo == 1 ) {
            $errores_0_1++;
            print LINEAS0Y1 $linea;
            next;
        }
    }

    $errores++;
    print LINEASNO0 $linea;
}

$comienzo = substr $linea, 0, 3;
if ( $comienzo =~ /^ *\d+$/ ) { # hay un número con una posible serie de espacios delante