Difference between revisions of "MergeCheatSheets.pl"
From Teknologisk videncenter
m |
m |
||
Line 21: | Line 21: | ||
if ($i !~ /alle.pdf/) { | if ($i !~ /alle.pdf/) { | ||
my $pages = prDoc("$homedir/$i"); | my $pages = prDoc("$homedir/$i"); | ||
− | # Hvis der kun er en | + | # Hvis der kun er en - eller ulige antal - sider i CheatSheet |
+ | # skal der tilføjes en tom side (duplex print) | ||
if ( $pages % 2 == 1 ) { | if ( $pages % 2 == 1 ) { | ||
prPage(); | prPage(); |
Revision as of 07:21, 5 June 2010
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 - 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 er space på den tomme side
prPage();
}
}
}
#Afslut filen
prEnd;