MergeCheatSheets.pl

Dette script blev anvendt til at samle mange små en eller to siders PDF filer til et stort dukument for udskrivning. Se Cheat Sheets Networking

#!/usr/bin/perl
use strict;
use warnings;
use PDF::Reuse;

#Find PDF filer
opendir(DIR, "/usr/local/www/data/cisco/CheatSheets");
my @files = grep(/\.pdf$/,readdir(DIR));
closedir(DIR);

#Dokument med alle filer
prFile("/usr/local/www/data/cisco/CheatSheets/alle.pdf");

#Tilføj filer
for my $i (@files) {
  if ($i !~ /alle.pdf/) {
    my $pages = prDoc("/usr/local/www/data/cisco/CheatSheets/$i");
        print "Tilføjet $i som fyldte $pages sider\n";
        if ( $pages % 2 == 1 ) {
                prPage();
                prText(75, 790, 'Denne side er tom');
                prPage();
                print "               Tom side tilføjet\n";
        }
  }
}

#Afslut filen
prEnd;