Opened by betterworld at 2003-10-26 00:14
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Naja, von C kenne ich es so, wenn ich einfach so rand benutze ist es so als hätte ich srand(0) aufgerufen, also setzte ich später ein srand(time()) ab.
Ich wusste nicht, dass Perl das automatisch macht, deshalb hätte ich vorgeschlagen selbst einmal zu Beginn srand(time()) auszuführen, und ich kann mir auch nicht vorstellen, dass das schaden soll.
zu srand(time() ^ $$ ) - das Beispiel in perldoc war ja komplizierter... trotzdem sollte nicht immer 8 rauskommen als erster Wert...\n\n
<!--EDIT|Crian|1068467305-->
Ich wusste nicht, dass Perl das automatisch macht, deshalb hätte ich vorgeschlagen selbst einmal zu Beginn srand(time()) auszuführen, und ich kann mir auch nicht vorstellen, dass das schaden soll.
zu srand(time() ^ $$ ) - das Beispiel in perldoc war ja komplizierter... trotzdem sollte nicht immer 8 rauskommen als erster Wert...\n\n
<!--EDIT|Crian|1068467305-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite