Data::Page

[Claudio Vituzzi]

Ho un problema con questo codice che dovrebbe dividermi in pagine i records di un db:

#!/perl

use strict;
use warnings;
use diagnostics;
use Data::Page;
use DBI;

my $total_entries = 114;
my $entries_per_page = 30;
my $current_page = 1;

$page = Data::Page->new($total_entries, $entries_per_page, $current_page);

$dbh = DBI->connect("dbi:SQLite:dbname=catalogo_db","","") || die "was not able to connect $DBI::errstr\n";

for $riga ( 1 .. $page->last_page )
{
	print "Pagina: $riga \n";
		
	$sth = $dbh->prepare("SELECT MARCA, MODELLO, DESCRIZ, TIPO, PREZZO FROM CATALOGO LIMIT ?, ?");
	$sth->execute( $page->skipped, $page->entries_per_page );
	
	while ( ($marca, $modello, $descriz, $tipo, $prezzo) = $sth->fetchrow_array )
	{
		print "$marca, $modello, $descriz, $tipo, $prezzo\n";
	}
	print "*\n";
	$page->current_page( $riga );
}

$dbh->disconnect();

purtroppo se ne esce con due errori:

uno di sintassi a questa riga:

$sth = $dbh->prepare("SELECT MARCA, MODELLO, DESCRIZ, TIPO, PREZZO FROM CATALOGO LIMIT ?, ?");

l'altro è che non riesce a eseguire questa riga perche manca un valore oppure un valore e undef:

	$sth->execute( $page->skipped, $page->entries_per_page );

non so proprio come risolvere la questione,

grazie

[shishii]

hai controllato che $page->skipped e $page->entries_per_page contengano effettivamente dei valori?