/dev/random

Thread View: pl.comp.lang.perl

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Marcin Wójcik Mon, 04 May 1998 13:00

#1329

Author: Marcin Wójcik
Date: Mon, 04 May 1998 13:00

8 lines
865 bytes

Czy można jakoś elegancko skorzystać z linuxowych /dev/random i /dev/urandom
w perlu? Elegancko, tzn inaczej niż np. system(dd if=/dev/random ...)

M.
-- 
Marcin Wójcik
marcinw(a)medianet.pl
SM-Media ISP

Re: /dev/random

#1330

Author: Piotr Piatkowski
Date: Mon, 04 May 1998 13:47

23 lines
1240 bytes

Marcin Wójcik <m@m.p> wrote:
: Czy można jakoś elegancko skorzystać z linuxowych /dev/random i /dev/urandom
: w perlu? Elegancko, tzn inaczej niż np. system(dd if=/dev/random ...)

Nie bardzo rozumiem w czym problem:

open(RANDOM,"/dev/random") or die "open /dev/random: $!";

while(1) {
  $n = unpack "C", getch RANDOM;
  print "$n\n";
}

...o ile z /dev/random czyta się po jednym bajcie, jeżeli po więcej, 
to trzeba użyć sysread, np. tak:

sysread( RANDOM, $data, 2 );
$n = unpack "S", $data; 



-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Re: /dev/random

#1331

Author: Marcin Wójcik
Date: Mon, 04 May 1998 14:09

18 lines
1195 bytes

Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:
: Marcin Wójcik <m@m.p> wrote:
: : Czy można jakoś elegancko skorzystać z linuxowych /dev/random i /dev/urandom
: : w perlu? Elegancko, tzn inaczej niż np. system(dd if=/dev/random ...)

: Nie bardzo rozumiem w czym problem:

: open(RANDOM,"/dev/random") or die "open /dev/random: $!";
[...]

Noo... ;) W niczym problem ;)
Dzieki :)

M.
-- 
Marcin Wójcik
marcinw(a)medianet.pl
SM-Media ISP

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads