CGI - ALGO EXTRAÑO

#!/usr/bin/perl

use strict;

use warnings;

# Lee los datos desde tu base de datos tipo texto

# Supongamos que los datos están en un archivo llamado "basedatos.txt"

open my $datos_fh, '<', 'basedatos.txt' or die "No se puede abrir el archivo: $!";

my @datos = <$datos_fh>;

close $datos_fh;

# Define los colores para las filas pares e impares

my $color_par = 'lightgrey';

my $color_impar = 'white';

# Define el número de filas por página

my $filas_por_pagina = 10;

# Inicializa el contador de filas

my $contador_filas = 0;

# Inicializa el contador de páginas

my $contador_paginas = 1;

# Imprime los datos en filas alternadas y con paginación

foreach my $dato (@datos) {

    # Cambia de color en cada fila

    my $color_actual = ($contador_filas % 2 == 0) ? $color_par : $color_impar;

    # Imprime la fila con el color correspondiente

    print "<div style='background-color: $color_actual;'>$dato</div>\n";

    # Incrementa el contador de filas

    $contador_filas++;

    # Si se alcanza el límite de filas por página, genera una nueva página y muestra el número de página

    if ($contador_filas % $filas_por_pagina == 0) {

        print "<div>Página $contador_paginas</div>\n";

        $contador_paginas++;

    }

}

# Si quedan filas incompletas en la última página, muestra el número de página

if ($contador_filas % $filas_por_pagina != 0) {

    print "<div>Página $contador_paginas</div>\n";

}