MergeCheatSheets.pl - Revision history

Heth at 08:07, 25 October 2010

2010-10-25T08:07:32Z

Heth at 05:23, 5 June 2010

2010-06-05T05:23:56Z

Heth at 05:23, 5 June 2010

2010-06-05T05:23:26Z

Heth at 05:21, 5 June 2010

2010-06-05T05:21:10Z

Heth at 05:20, 5 June 2010

2010-06-05T05:20:06Z

Heth at 05:18, 5 June 2010

2010-06-05T05:18:46Z

Heth: 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 #!/usr/bin/perl use ...

2010-06-05T05:08:20Z

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 ...

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 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;
</source>
[[Category:Perl]]

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

@@ Line 21: / Line 21: @@
    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)
+         # Hvis der kun er en - eller ulige antal - sider i CheatSheet
          if ( $pages % 2 == 1 ) {
                  prPage();

@@ Line 2: / Line 2: @@
 <source lang=perl>
 #!/usr/bin/perl
-#Author: heth@mercantec.dk
+#Author          : heth@mercantec.dk
 use strict;
 use warnings;

@@ Line 2: / Line 2: @@
 <source lang=perl>
 #!/usr/bin/perl
 use strict;
 use warnings;
 use PDF::Reuse;
 #Find PDF filer
-opendir(DIR, "/usr/local/www/data/cisco/CheatSheets");
+opendir(DIR, $homedir);
 my @files = grep(/\.pdf$/,readdir(DIR));
 closedir(DIR);
 #Dokument med alle filer
-prFile("/usr/local/www/data/cisco/CheatSheets/alle.pdf");
+prFile("$homedir/alle.pdf");
 #Tilføj filer
 for my $i (@files) {
    if ($i !~ /alle.pdf/) {
-     my $pages = prDoc("/usr/local/www/data/cisco/CheatSheets/$i");
+     my $pages = prDoc("$homedir/$i");
          print "Tilføjet $i som fyldte $pages sider\n";
          if ( $pages % 2 == 1 ) {
                  prPage();
-                 prText(75, 790, 'Denne side er tom');
+                 prText(250, 2500, ' '); #Tilføj er space på den tomme side
                  prPage();
                  print "               Tom side tilføjet\n";