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
#Author: heth@mercantec.dk
use strict;
use warnings;
use PDF::Reuse;

my $homedir = "/usr/local/www/data/cisco/CheatSheets";

#Find PDF filer
opendir(DIR, $homedir);
my @files = grep(/\.pdf$/,readdir(DIR));
closedir(DIR);

#Dokument med alle filer
prFile("$homedir/alle.pdf");

#Tilføj filer
for my $i (@files) {
  if ($i !~ /alle.pdf/) {
    my $pages = prDoc("$homedir/$i");
        # Hvis der kun er en side i CheatSheet skal der tilføjes en tom side (duplex print)
        if ( $pages % 2 == 1 ) {
                prPage();
                prText(250, 2500, ' '); #Tilføj er space på den tomme side
                prPage();
        }
  }
}

#Afslut filen
prEnd;