Lizenzierung in Perl - #183079 (Allgemeines zu Perl)

GwenDragon

2015-11-30 17:03

User since
2005-01-17
14761 Artikel
Admin1

Du speicherst binäre Daten, deswegen solltest du binmode verwenden und auch beim Schreiben die Datei mit flock sperren.

Der verbesserte Codeschnippsel für den Pubkey:

Code (perl): (dl )

open( PUBLIC , ">", "test.public" ) or die "COULD NOT SAVE Public Key" , "\n";
binmode PUBLIC;
flock PUBLIC,0;
print PUBLIC $public;
close( PUBLIC ) or die "COULD NOT SAVE Public Key" , "\n";

und der verbesserte Codeschnippsel für den Privatekey so:

Code (perl): (dl )

open( PRIVATE , ">", "test.private" ) or die "COULD NOT SAVE Private Key" , "\n"; 
binmode PRIVATE;
flock PRIVATE,0;
print PRIVATE $private; 
close( PRIVATE ) or die "COULD NOT SAVE Private Key" , "\n";

Dann klappt es auch.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten