ps2pdf-strip.raku

#!/usr/bin/env raku
use PDF::IO::Reader;

#| strip non-deterministic data from ps2pdf output.
#| Ensure multiple runs produce exactly the same binary output
#| see https://www.mail-archive.com/[email protected]/msg763682.html
sub MAIN(
    Str $file-in,               #= input PDF
    Str $file-out = $file-in,   #= output PDF (optional)
    Str :$id = "wôBÚ¦Ø峧\x[9D]¡tõpÍ\x[16]",
    ) {

    CATCH {
        when X::PDF { note .message; exit 1; }
    }

    my PDF::IO::Reader $reader .= new.open($file-in);

    given $reader.trailer {
        .<ID> = [$id, $id];
        with .<Info> {
            .<CreationDate>:delete;
            .<ModDate>:delete;
        }
        with .<Root> {
            .<Metadata>:delete;
        }
    }
    $reader.save-as($file-out, :rebuild);
}