Encryptie methode Perl Rot 13

[sandor]

Heey,

Ik heb hier een scriptje dat een standaard rot13 encryptie toepast op een regel tekst die je invoerd,
weten jullie misschien een optie dat die een bestand inlaadt en het gehele bestand encrypt en wegschrijft naar hetzelfde bestand?


print("Welke tekst wil je decrypten\n");
$tekst = <>;


$tekst =~ tr/abcdefghijklmnopqrstuvwxyz/nopqrstuvwxyzabcdefghijklm/;

print($tekst);


Ik hoop dat jullie een antwoord voor me hebben.

Groeten,
Sander

[libris]

Als je dat resultaat wil hebben, dan zul je open moeten gebruiken. En dan zorgen dat de inhoud van het bestand in een variabele komt. En dan de translation los laten op de var :-) . Daarna schrijf je de var weer terug naar het bestand, of een ander bestand als je dat wilt.

Hopelijk kom je hier een eind mee

groeten,
libris