tepubtohtml.pl - scripts - random scripts
 (HTM) git clone https://git.parazyd.org/scripts
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
       tepubtohtml.pl (568B)
       ---
            1 #!/usr/bin/perl -w
            2 
            3 # General use: unzip your file, head over to the directory where the *.html
            4 # files exist and just execute the script. You'll find a nice "Previous/Next
            5 # Page" link at the bottom of each page
            6 
            7 use strict;
            8 use 5.012;
            9 use Cwd;
           10 
           11 my $dir = getcwd;
           12 my $filenames;
           13 my @filenames = glob "$dir/*.html";
           14 
           15 my $i = 0;
           16 
           17 for ($i = 0; $i < $#filenames; $i++) {
           18   open my $fh, '>>', $filenames[$i] or die "Cound not open $filenames[$i]: $!";
           19   print $fh "<a href=\"$filenames[$i-1]\">Previous Page</a> <a href=\"$filenames[$i+1]\">Next Page</a>";
           20   close $fh;
           21 }