Printing Table of Contents From an Array On Multiple Pages

[Milti]

Let's say I have a directory with 50 files in it. I use the Perl Glob function on the directory to get an array containing a list of the files.

Now I want to print the individual file names from the array onto a template (I know how to do that) but wish to limit the number of items per page to 10 while including a footer saying next page or whatever. How do I do that?

Thanks for any help you can provide.

[jeffa]

I use Data::Page for that (there are others too, such as Data::Pagination and Data::SimplePaginator). This is not a trivial problem to solve so don't be disconcerted if you don't solve it in less than a few days.

[kcott]

G'day Milti,

"... (I know how to do that) but wish to limit the number of items per page to 10 while including a footer saying next page or whatever. How do I do that?"

The logic for that is fairly straightforward. Using less filenames and shorter pages for demo purposes:

$ perl -Mstrict -Mwarnings -E '
    my @files = "A" .. "J";
    my $items_per_page = 3;
    my $current_item = 0;

    for (@files) {
        say;
        if (not ++$current_item % $items_per_page) {
            say "Next Page" unless $current_item == @files;
        }
    }
'
A
B
C
Next Page
D
E
F
Next Page
G
H
I
Next Page
J

In case you were wondering, 'unless $current_item == @files' stops the "Next Page" message being output when the end of page coincides with the end of data. Using one less file:

$ perl -Mstrict -Mwarnings -E '
    my @files = "A" .. "I";
    my $items_per_page = 3;
    my $current_item = 0;

    for (@files) {
        say;
        if (not ++$current_item % $items_per_page) {
            say "Next Page" unless $current_item == @files;
        }
    }
'
A
B
C
Next Page
D
E
F
Next Page
G
H
I