problem in printing

[archulu]

hi i am archulu . i am doing a project in perl. in my project i want to print 10 questions per page. now my problem is i want to insert "previous" and "next" buttons are add in front and last of dipalying my page.
how we print these words pz give me some sample code for that

[CODE=perl]
my $entriesperpage = 5;
my $start = 1 ;
my $end = 10;

my %globalhash ;
my @data = <FH>;


foreach my $s (sort {$a <=> $b} keys %$global ) {
my $from = ($pageno * $entriesperpage ) - $entriesperpage + 1;
my $to = ($pageno * $entriesperpage ) ;
if ($s >= $from && $s <= $to) {
my $arrayref = $global->{$s};
my $a = $s;
my $total_entries = keys(%$global);
$noofpages = $total_entries / $entriesperpage ;
for (my $i = 1; $i <= $noofpages; $i++) {
href=\"javascri pt:showpage('../Anchor/News_Onlinetest ?session=$sessi on_id&pageno=$i &user=$user1&ht no=$htno&Dateof Exam=$da&timeof exam=$time&exam id=$ei')\"> $i </ a > &nbsp;";

if ($i > 1) {
print "<a href=\"javascri pt:showpage('../Anchor/News_Onlinetest ?session=$sessi on_id&pageno=$i &user=$user1&ht no=$htno&Dateof Exam=$da&timeof exam=$time&exam id=$ei')\"> </ a > &nbsp;";
print $total_entries - 10;
# print "&remaining =";
# print $total_entries;
# print "&pagenumbe r=";
print $i - 1," | ";
print "\'>\n";
print "NEXT" ,"</a>"," | ";
}

if ($i > 0 && $i <= $noofpages -1) {
print "<a href=\"javascri pt:showpage('../Anchor/News_Onlinetest ?session=$sessi on_id&pageno=$i &user=$user1&ht no=$htno&Dateof Exam=$da&timeof exam=$time&exam id=$ei')\"> </ a > &nbsp;";
# print " | <a href=\'issue_vi ew?itemtype=$it em_name&session =$session_id&li mit=";
print ($entries_per_p age * $i);
# print "&remaining =";

if ($i == $i -1) {
print ($i * $entries_per_pa ge + $end);
} else {
print (($i + 1) * $entries_per_pa ge);
}
# print "issue_view?ite mtype=$item_nam e&session=$sess ion_id&pagenumb er=";
print $i + 1;
#print "\'>\n";
print "PREVIOUS" ,"</a>";
}
[/CODE]


this code was given the result, but not in correct maner.

plz help to me
any modifications in my program plz plz help to me

[KevinADC]

what is %$global?

foreach my $s (sort {$a <=> $b} keys %$global ) {

what does it have to do with your paging?

[keerthi485]

Hi ,

Try using HTML::Pager.
http://search.cpan.org/~samtregar/HTML-Pager-0.03/Pager.pm