Difference between revisions of "MergeCheatSheets.pl"
From Teknologisk videncenter
m (New page: 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 <source lang=perl> #!/usr/bin/perl use ...) |
(No difference)
|
Revision as of 07:08, 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
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;