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
#Created         : 2010-06-03
#Modification log:
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 - eller ulige antal - sider i CheatSheet
    # skal der tilføjes en tom side (duplex print)
    if ( $pages % 2 == 1 ) {
        prPage();
        prText(250, 2500, ' '); #Tilføj en space på den tomme side
        prPage();
    }
  }
}

#Afslut filen
prEnd;