Re: pagination links (logic)

This is how you should write that

#!/usr/bin/perl --
use strict; use warnings;
use CGI ();
Main( @ARGV );
exit( 0 );
sub Main {
    my $q = CGI->new;
    ...
    my @currentPageData = GetItGood( ... );
    ...
    return PaginationFudge(
        $numberResults,
        $numperPerPage,
        $currentPageNumber,
        \@currentPageData,
    );
}
[download]

Then sub PaginationFudge prints the html to what it should be .... subs! DebugCGI

Logic is the same in every language, even perl

Comment on Re: pagination links (logic) Download Code

Replies are listed 'Best First'.
Re^2: pagination links (logic) by ironside (Acolyte) on Apr 03, 2014 at 00:08 UTC
Thank you but that doesn't solve my problem. I removed the subs that I had to simplify the script until I can figure out how to get paging working.	[reply]
Re^3: pagination links (logic) by Anonymous Monk on Apr 03, 2014 at 00:19 UTC
Thank you but that doesn't solve my problem. It wasn't meant to solve your problem (it wasn't an answer) -- its a way to organize your code so that solving the problem is easier than easy ... its about a million times easier to debug HtmlPrinter() or PaginationLinks() than HtmlPrinterAndDatabaseQueryAndCGIQueryAndPaginationLogicAllWhileEscapingQuotes() You want to debug the smallest piece possible, not the whole thing at once in a blender ; Its how you can solve your own problem and makes it a joy for others to help you I removed the subs that I had to simplify the script until I can figure out how to get paging working. You will never figure it out that way ... and its very painful for folks trying to help you ... Its kind of like building a bed out of wood by only using a drill -- how are you cutting your lumber, using saw? No, I'm drilling it ... very slow going and painful ... Perl gives subs, gives you double quoted strings where you don't have to escape quotes ... it gives you all manner of tools besides drill	[reply]