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 ...) |
m |
||
Line 2: | Line 2: | ||
<source lang=perl> | <source lang=perl> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
+ | #Author: heth@mercantec.dk | ||
use strict; | use strict; | ||
use warnings; | use warnings; | ||
use PDF::Reuse; | use PDF::Reuse; | ||
+ | |||
+ | my $homedir = "/usr/local/www/data/cisco/CheatSheets"; | ||
#Find PDF filer | #Find PDF filer | ||
− | opendir(DIR, | + | opendir(DIR, $homedir); |
my @files = grep(/\.pdf$/,readdir(DIR)); | my @files = grep(/\.pdf$/,readdir(DIR)); | ||
closedir(DIR); | closedir(DIR); | ||
#Dokument med alle filer | #Dokument med alle filer | ||
− | prFile(" | + | prFile("$homedir/alle.pdf"); |
#Tilføj filer | #Tilføj filer | ||
for my $i (@files) { | for my $i (@files) { | ||
if ($i !~ /alle.pdf/) { | if ($i !~ /alle.pdf/) { | ||
− | my $pages = prDoc(" | + | my $pages = prDoc("$homedir/$i"); |
print "Tilføjet $i som fyldte $pages sider\n"; | print "Tilføjet $i som fyldte $pages sider\n"; | ||
if ( $pages % 2 == 1 ) { | if ( $pages % 2 == 1 ) { | ||
prPage(); | prPage(); | ||
− | prText( | + | prText(250, 2500, ' '); #Tilføj er space på den tomme side |
prPage(); | prPage(); | ||
print " Tom side tilføjet\n"; | print " Tom side tilføjet\n"; |
Revision as of 07:18, 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");
print "Tilføjet $i som fyldte $pages sider\n";
if ( $pages % 2 == 1 ) {
prPage();
prText(250, 2500, ' '); #Tilføj er space på den tomme side
prPage();
print " Tom side tilføjet\n";
}
}
}
#Afslut filen
prEnd;