Besoin de r\u00e9unir des PDFs en un seul, pas vraiment compliqu\u00e9 avec pdfunite. Excellent. Dans mon cas, besoin un peu plus sophistiqu\u00e9 car besoin d’introduire des signets afin d’avoir un document plus agr\u00e9able \u00e0 consulter, d’o\u00f9 ce script.<\/p>\n\n\n\n
Script en perl mais d\u00e9pendances pour manipuler les fichiers PDF, \u00e0 savoir pdfinfo, pdfunite (brew install Doppler sur Mac et apt install poppler-utils sur linux) et enfin ghostscript. Pas besoin de modules perl sp\u00e9cifiques.<\/p>\n\n\n\n
Simple et efficace. Peace.<\/p>\n","protected":false},"excerpt":{"rendered":" Besoin de r\u00e9unir des PDFs en un seul, pas vraiment compliqu\u00e9 avec pdfunite. Excellent. Dans mon cas, besoin un peu plus sophistiqu\u00e9 car besoin d’introduire des signets afin d’avoir un document plus agr\u00e9able \u00e0 consulter, d’o\u00f9 ce script. Script en perl mais d\u00e9pendances pour manipuler les fichiers PDF, \u00e0 savoir pdfinfo, pdfunite (brew install Doppler … Continuer la lecture de UniteThePages<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1,3],"tags":[91,66,90],"class_list":["post-506","post","type-post","status-publish","format-standard","hentry","category-non-classe","category-pdf","tag-hack","tag-script","tag-tools"],"_links":{"self":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/506","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/comments?post=506"}],"version-history":[{"count":4,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/506\/revisions"}],"predecessor-version":[{"id":510,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/506\/revisions\/510"}],"wp:attachment":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/media?parent=506"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/categories?post=506"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/tags?post=506"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}#\/usr\/bin\/perl
open(STRU,'>','merger.txt');
$cursor = 1;
foreach $af (@ARGV) {
if(-e $af) {
$ninfo = pdfinfo \"$af\";
my %inf;
foreach $lee (split(\/\\n\/g,$ninfo)) {
if($lee =~ \/^(.?)\\:[\\s\\t]+(\\w.<\/em>)\/) {
$inf{$1} = $2;
}
}
$tito = $inf{'Title'};
$tito = $af unless($tito);
if($inf{'Pages'} =~ \/\\d+\/) {
print STRU \"[\/Page $cursor \/Title ($tito) \/OUT pdfmark\\n\";
$cursor += $inf{'Pages'};
}
}
}
close(STRU);
$units = join(' ',map { \"\\\"$_\\\"\" } @ARGV);
pdfunite $units merger.pdf;
print gs -sDEVICE=pdfwrite -q -dBATCH -dNOPAUSE -sOutputFile=Merged.pdf -dPDFSETTINGS=\/prepress merger.txt -f merger.pdf;<\/code>unlink('merger.txt');
unlink('merger.pdf');<\/code><\/p>\n\n\n\n