[caracas-pm] Paginador de Resultados HTML

[Alexis Arnal]

Saludos, espero que esten bien.

Sigo inventando y ahora se me ocurrió agregar a un sistema un
paginador de resultados al estilo de google o altavista, el cual
cuando realice una búsqueda en una base de datos si consigue más de un
elemento que concuerde lo muestre y me permita verlos de 10 en 10 con
posibilidades de ir al final o al principio.

Encontré un módulo llamado HTML::Pager desarrollado por la misma
persona de HTML::Template (Sam Tregar) pero la documentación está un
poco confusa,
Realice los ejemplos de la documentación y en la consola muestra una
salida pero en el navegador manda un error

Este es mi código:
*********************************
#!/usr/bin/perl
use HTML::Pager;
use CGI;

# get CGI query object
my $query = CGI->new();
my @data = ( 
              { name => sam, age => 10 },
               { name => saa, age => 11 },
               { name => sad, age => 12 },
               { name => sac, age => 13 },
               { name => sab, age => 14 },
             );

my $get_data_sub = sub {
    my ($offset, $rows) = @_;
    my @return_array;

     for (my $x = 0; $x < $rows; $x++) {
        push(@return_array, [ $data[$offset + $x]{name}, $data[$offset
+ $x]{age} ] );
     }
     return \@return_array;
  };
          
  # create a Pager object 
  my $pager = HTML::Pager->new(
                               # required parameters
                               query => $query,
                               get_data_callback => $get_data_sub,
                               rows => 100,
                               page_size => 10,

                               # some optional parameters
                               persist_vars => ['myformvar1', 
                                                'myformvar2', 
                                                'myformvar3'],
                               cell_space_color => '#000000',    
                               cell_background_color => '#ffffff',
                               nav_background_color => '#dddddd',
                               javascript_presubmit =>
'last_minute_javascript()',
                               debug => 1,
				);
# make it go - send the results to the browser.
print $pager->output;
*********************************************************

Y este es el error
**********************************************************
offset set to 0 at /usr/local/share/perl/5.8.4/HTML/Pager.pm line 377.
Got data. at /usr/local/share/perl/5.8.4/HTML/Pager.pm line 404.
malformed header from script. Bad header=<SCRIPT
LANGUAGE="Javascript">: prueba_html_pager.pl
************************************************************

Alguien ha trabajado alguna vez con este módulo??
Dónde puedo conseguir más documentación o un ejemplo??
Si saben de otro módulo que haga lo mismo??

Mientras tanto sigo dandome rompiendome el coco.

Atte.
Alexis Arnal
Caracas-Venezuela