Adjust some perl & tcl related things in various scripts & utilities.
[dragonfly.git] / tools / test / devrandom / hammer.random
1 #!/usr/pkg/bin/perl
2
3 #
4 # Test program for /dev/random
5 # Read and display random numbers.
6 # Try tapping shift/alt/ctrl to get more randomness.
7 #
8 # $FreeBSD: src/tools/test/devrandom/hammer.random,v 1.4 1999/08/28 00:54:24 peter Exp $
9 # $DragonFly: src/tools/test/devrandom/hammer.random,v 1.2 2003/06/17 04:29:11 dillon Exp $
10 #
11
12 for (;;) {
13         open(BIN, "/dev/random") || die "Cannot open /dev/random - $!\n";
14         $len = sysread(BIN, $a, 128);
15         close(BIN);
16         if ($len > 0) {
17                 print "$len bytes read: ";
18                 for ($j = 0; $j < $len; $j++) {
19                         $k = unpack("C", substr($a, $j, 1));
20                         printf("%.2X ", $k);
21                 }
22                 printf "\n";
23         }
24 }