Ich habe keine Lösung für die Frage, die Sie tatsächlich stellen, dh wie Sie Text kopieren und lesbar machen.
Jedoch! Es sieht aus Ihrem Beispiel aus wie die "Verschlüsselung" hier eine einfache Zeichenersetzung ist. Daher ist es nicht zu schwierig, den kopierten Text durch einen Filter zu übergeben, um ihn zu entschlüsseln und ein lesbares Ergebnis zu erzeugen. Nehmen Sie beispielsweise an, dass das folgende Skript aufgerufen wird decrypt.pl:
#!/usr/bin/perl use strict; use utf8; binmode STDIN, ':utf8'; my %map = ( # from => to 'z' => 's', 'd' => 'h', 'n' => 'e', 'a' => 'i', '~' => 'u', 'g' => 'n', 'f' => 'a', 'p' => 'p', '' => 'r', 'b' => 'o', 'j' => 'c', 'd' => 'h', '`' => 'b', 'h' => 'l', # other substitutions here ); while (my $line = <STDIN>) { foreach my $char (split(//, $line)) { my $upcase = (lc($char) eq $char ? 0 : 1); my $found = $map; if (!$found) { die "No substitution found for character '$char'\n"; }; $found = uc($found) if $upcase; print $found; }; }; Wenn Sie den gewünschten Text aus der PDF-Datei in eine Datei namens "Kopieren" kopieren source, dann ausführen cat source | perl decrypt.pl > destination, enthält die Datei destinationden entschlüsselten Inhalt:
[user@host tmp]$ echo 'Zdn az ~gfppbfjdf`hn' > source [user@host tmp]$ cat source | perl decrypt.pl > destination [user@host tmp]$ cat destination She is unapproachable [user@host tmp]$